Conversion d’euros en dollars
La petite macro proposée dans cet article calcule le montant
total qui correspond aux cellules sélectionnées et affiche un dialogue
présentant à la fois ce montant total en euros et sa contrepartie en dollars.
Le taux de change est fourni par l’utilisateur dans un dialogue.
Voici la macro :
Sub
Conv_Dollars()
Dim Cell As
Range
Dim Total
As Double
Dim Cours
As Double
For Each
Cell In Selection
Total = Total + Cell.Value
Next Cell
Cours = Application.InputBox("Cours actuel du $
?", "Change", Type:=1)
MsgBox "En euros : " & Application.Text(Total,
"# ##0.00 €") & _
vbLf & "Dollars : " &
Application.Text(Total * Cours, """$ ""# ##0.00")
End Sub
Remarque – Bien évidemment, on pourrait plus facilement
encore lire le taux de change dans une cellule de la feuille de calcul plutôt
que de passer par un dialogue. Ou – mieux encore ! –, aller chercher ce
taux dans un site boursier sur le Web, afin qu’il soit actualisé en temps
réel !
On pourrait aussi facilement transformer cette macro en macro-fonction, auquel cas il faudrait obligatoirement que l'on aille lire le taux de change dans une cellule...
rédigé par Hervé Thiriez |
2 commentaire(s)
2 Commentaire(s):
On dispose dans Excel de cette magnifique fonction SOMME (Sum in english), alors autant s'en servir et remplacer la paraphrase :
Dim Cell As Range
For Each Cell In Selection
Total = Total + Cell.Value
Next Cell
par :
Total = Application.WorksheetFunction.Sum(Selection)
By
cduigou, sur 9:48 PM
Parfaitement exact !
Il est vrai que je me suis contenté de modifier une boucle sur la sélection que j'utilise dans certaines de mes macros...
Au moins, cela montre comment faire une boucle sur les cellules d'une sélection :)
By
Hervé Thiriez, sur 5:25 PM
Enregistrer un commentaire
<< Accueil