Changer le format monétaire selon le contenu d'une cellule

[aeque]

Bonjour le fofo,

Une fois de plus j'ai besoin de vos lumière.

J'aimerai pouvoir modifier le format monétaire de plusieurs cellule en fonction du choix de la monnaie.

Je m'explique en R8 je sélectionne ma monnaie, j'aimerai que tous les chiffres passent dans la monnaie choisis.


Je ne sais pas du tout si cela est possible mais au lieu de faire en simple en rajoutant une colonne avant le total j'aimerai essayer de passer par vba.

voilà

Merci pour toute suggestion

 

[Yaloo]

Re : Changer le format monétaire selon le contenu d'une cellule

Bonsoir aeque, le forum,

Le code à mettre dans ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [R8] Then
If [R8] = "Dinar algérien" Then Columns(6).NumberFormat = "#,##0 \Dz\d;[Red]-#,##0 \Dz\d"
If [R8] = "Real brésilien" Then Columns(6).NumberFormat = "[$R$ -416]#,##0_ ;[Red]-[$R$ -416]#,##0 "
If [R8] = "Dollar US" Then Columns(6).NumberFormat = "[$$-409]#,##0.00"
End If
End Sub

Je te mets le fichier

A+
Yaloo

 

[aeque]

Re : Changer le format monétaire selon le contenu d'une cellule

Merci beaucoup Yaloo ça marche nikel.

Donc si je comprends pour chaque type de monnaie je dois mettre une condition. Par contre je ne connais pas forcément comment écrire en vba chaque monnaie....

une idée où je pourrais avoir une liste en vba

Merci

 

[Yaloo]

Re : Changer le format monétaire selon le contenu d'une cellule

Bonjour aeque, le forum,

Tu fais un enregistrement de macro, tu mets ta monnaie dans une cellule (par format de cellule), ensuite dans VBA, tu récupère ton code et tu adaptes dans la macro ci-dessus.

A+