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...