Afficher des cellules format monétaire en USD ou EUR via taux de change
Fermé
Marou
-
2 févr. 2020 à 05:49
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 2 févr. 2020 à 08:32
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 2 févr. 2020 à 08:32
A voir également:
- Afficher des cellules format monétaire en USD ou EUR via taux de change
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format epub - Guide
- Excel additionner des cellules - Guide
- Piratage facebook changer mot de passe - Guide
- Verrouiller des cellules excel - Guide
1 réponse
franc38
Messages postés
197
Date d'inscription
mercredi 23 avril 2008
Statut
Membre
Dernière intervention
27 février 2023
38
2 févr. 2020 à 08:32
2 févr. 2020 à 08:32
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
