Macros-commandes VBA/Exercices/Convertisseur Euro-Franc

Convertisseur Monétaire

Le but ici est de créer un convertisseur monétaire simple avec 2 boites de message : MsgBox et InputBox.

Début de l'exemple

Exemple

Enoncé:

• Créer une nouvelle macro convertisseureurofranc
• Saisir la question adressée à l’utilisateur via une boite de dialogue : "Saisir votre montant en euros : "
• Récupérer la réponse de l’utilisateur dans une variable nommée montanteneuro
• Ranger montanteneuro dans une variable montantenfranc
• Multiplier montantenfranc par 6.55957
• Afficher la réponse adressée à l’utilisateur via une boite de dialogue : "Le montant correspondant en francs est : montantenfranc"

Fin de l'exemple

Solution

Aller sous EXCEL sur l'onglet développeur, créer une macro nommée convertisseureurofranc, puis :

• Pour déclarer vos variables entrer les 2 lignes de codes suivantes :
  • entrer une première ligne de code : Dim montanteneuro As Currency
  • entrer une seconde ligne de code : Dim montantenfranc As Decimal
• Pour saisir une réponse, effectuer un calcul puis afficher le résultat, entrer les 3 lignes de codes suivantes :
  • Définissez votre boite de saisie : montanteneuro = InputBox("Saisir votre montant en euros : ")
  • Effectuer votre calcul : montantenfranc = montanteneuro * 6.55957
  • Afficher le résultat avec une boite d'affichage : MsgBox("Le montant correspondant en francs est : " & montantenfranc ,"Convertisseur €-Fr")

 Sub convertisseureurofranc()
   Dim montanteneuro As Currency 'Currency est important pour pouvoir saisir un format monétaire en euros
   Dim montantenfranc As Decimal 'Decimal permet aussi le format décimal (mais pas obligatoirement en euros)
   montanteneuro = InputBox("Saisir votre montant en euros : ") 'votre utilisateur doit saisir un montant
   montantenfranc  = montanteneuro * 6.55957 'le montant en franc est calculé
   MsgBox("Le montant correspondant en francs est : " & montantenfranc, "Convertisseur €-Fr") 'le résultat est affiché
 End Sub

Remarque

Vous voici maintenant en possession d'un convertisseur dont vous pouvez décliner les fonctions à l'infini avec tous types de monnaie si vous connaissez les taux de change