« Macros-commandes VBA/Exercices/Convertisseur Euro-Franc » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 11 :
* Ne pas oublier de définir un format monétaire adapté.
* Faire apparaitre le résultat dans une cellule précise.
}}
{{solution| contenu =
Voici la procédure à suivre:
* Aller dans l'onglet développeur
* Faire un enregistrement quelconque
* Modifier cet enregistrement de la façon suivante
* Déclarez votre macro en la nommant convertisseurfranceuro
* Pour définir vos variables, tapez une première ligne : Dim euro As Single puis une seconde : Dim i As Single pour avoir des variables à décimale avec une possibilité de négatif.
* Pour la messagebox, tapez par exemple : MsgBox "Convertisseur €-F"
* Définissez votre messagebox par les messages suivants : euro = InputBox("Tapez la somme en Euro!") suivi de : i = 6.55957
* Pour sélectionner la cellule sur laquelle la macro agira (par exemple la cellule F3) tapez : Range("F3").Select
* Ensuite, déterminez les termes de votre macro : Selection.Value = euro * i qui consiste à convertir la valeur euro tapée dans la messagebox en francs par la somme définie par i précédemment
* Enfin, définissez le format par : Selection.NumberFormat = "[$fr.-100C] #,##0.00" pour avoir deux décimales arrondies et en franc.
<source lang=vb>
Sub convertisseureurofranc()
Dim euro As Single 'Single est important pour pouvoir saisir des chiffres à virgules
Dim i As Single 'Même raison qu'auparavant pour Single, la variable i= 6.55957 est arrondi à 7 si on utilise Byte par exemple
MsgBox "Convertisseur €-Fr" 'Le message annonçant la macro
euro = InputBox("Tapez la somme en euros!") 'Indication pour l'utilisateur de ce qu'il devra faire
i = 6.55957
Range("F3").Select 'Il s'agit de la cellule de destination
Selection.Value = euro / i 'Le calcul effectué, à savoir la valeur tapé dans la inputbox divisé par i ici il s'agit de 6.55957
Selection.NumberFormat = "[$fr.-100C] #,##0.00" 'Il s'agit du format franc, comme le franc Français n'existe plus nous avons ici le format franc Suisse.
End Sub
</source>
}}
| |||