Macros-commandes VBA/Exercices/Convertisseur Euro-Franc
Apparence
Convertisseur Monétaire
[modifier | modifier le wikicode]Le but ici est de créer un convertisseur monétaire simple avec 2 boites de message : MsgBox et InputBox.
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"
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