changement de devise

[Toutoun]

Bonjour à tous,

Je suis encore et toujours en train de modifier mon petit tableau de note de frais et pour changer un probleme se pose a moi.
J'explique :

Jaimerais avoir dans un colone le choix d'une devise (essentiellement € et $) et j'aimerais q'en fonction du choix de celle ci que tout mes chiffres soit au format monetaire de cette devise.

J'ai joint un petit exemple...
Merci d'avance
Toutoun

PS : Mon niveau : je commence a connaitre pas trop mal exel (formules...)mais ne connait rien au code VBA

 

[Moa]

Touttoun !

Ton classeur est vide !

@ +

Moa

 

[Toutoun]

Oups Désolé, Voici le fichier!!!
Merci
Toutoun

 

[Moa]

Re Toutoun !

Plusieurs questions, qu'entends tu par "format monétaire" ?

Parles tu du format de la cellule, ou alors de la valeur qui doit changer.

Autre chose, pourquoi ne pas rajouter une colonne, une servant pour les Euros et l'autre pour les Dollars ?

@ +

Moa

 

[Toutoun]

Salut

Par format monetaire, j'entend le format de la cellule.
En ce qui concerne ta proposition de faire plusieurs colone ce n'est pas possible dans mon cas car le format de ma note de frais est figé par mon entreprise et je ne peut donc pas ajouter de colone.
Il faut donc absolumlent que le format change selon la devise selectionnée.

Merci,
Toutoun

 

[Moa]

Salut Toutoun !

Voilà une petite macro :

Sub Macro3()
Dim Cellule As Range
For Each Cellule In Range("E:E")
If Cellule = "Euro" Then Cellule.Offset(0, 1).NumberFormat = "#,##0.00 $"
If Cellule = "Dollars" Then Cellule.Offset(0, 1).NumberFormat = "[$$-409]#,##0.00"
Next Cellule
End Sub

Regarde le fichier joint

En espérant que c'est bien ce que tu voulais...héhé..!!!

@ +

moa

 

[Toutoun]

C'est exactement ce que je cherchait.

Merci
@+
Toutoun