changement de devise

T

Toutoun

Guest
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
 

Pièces jointes

  • devise.zip
    118 bytes · Affichages: 134
  • devise.zip
    118 bytes · Affichages: 139
  • devise.zip
    118 bytes · Affichages: 137
M

Moa

Guest
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
 
T

Toutoun

Guest
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
 
M

Moa

Guest
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
 

Pièces jointes

  • ChangerFormat.zip
    7 KB · Affichages: 303

Discussions similaires

Réponses
5
Affichages
349

Statistiques des forums

Discussions
311 741
Messages
2 082 058
Membres
101 883
dernier inscrit
Don esteban