Afficher des cellules format monétaire en USD ou EUR via taux de change
Marou
-
franc38 Messages postés 198 Statut Membre -
franc38 Messages postés 198 Statut Membre -
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 .
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
A voir également:
- Afficher des cellules format monétaire en USD ou EUR via taux de change
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Change dns - Guide
- Format apfs - Guide
1 réponse
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
A+ François
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
