Afficher des cellules format monétaire en USD ou EUR via taux de change

Signaler
-
franc38
Messages postés
50
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
12 février 2020
-
Bonjour,
Il m'a été confié d'organiser et de traiter un petite base de données qui contient des cellules format monétaire.
Je souhaite , pour ce type de cellules se trouvant dans mon tableau , avoir le choix de les afficher en euro ou en dollar à l'aide d'un taux de change .
Ainsi , pour une personne voulant visualiser les données monétaires en une des deux devises , pourra le faire .



Configuration: Android / Chrome 79.0.3945.136

1 réponse

Messages postés
50
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
12 février 2020
6
Bonjour
Pourquoi ne pas ajouter une colonne dollar=euro*0.901354
le taux de change peux être dans une cellule: =A1*C1 (à mettre en b1)...
Sinon: une macro avec un bouton
Private Sub CommandButton1_Click()
Dim eurodollar As Double, dollareuro As Double, i As Long, derlig As Long, mavar As Double
eurodollar = 0.901354
dollareuro = 1.109443
derlig = Range("A" & Rows.Count).End(xlUp).Row
If Me.CommandButton1.Caption = "Dollar" Then
Columns(1).NumberFormat = "#,##0.00 €"
mavar = dollareuro 'ou une cellule
Me.CommandButton1.Caption = "Euro"
Else
Columns(1).NumberFormat = "[$$-409]#,##0.00"
mavar = eurodollar
Me.CommandButton1.Caption = "Dollar"
End If
For i = 2 To derlig
Range("A" & i).Value = Range("A" & i).Value * mavar
Next
End Sub


A+ François