afficher devise en fonction du pays

[maxim47]

Bonjour
Je souhaiterai afficher la devise du pays derrière le montant payé et ce en fonction du pays sélectionné, j'ai bien trouvé la discussion "format conditionnel pour afficher un montant en devise" mais c'est limité à 2 monnaies j'ai essayé d'adapter la macro sans succès.
Si quelqu'un à une solution merci d'avance
Maxim

 

[djidji59430]

Bonjour,

Une façon de faire

 

[Nairolf]

Salut,

Il faut que tu passes par des Mises en Formes Conditionnelles (MFC disponible dans le menu Accueil) via formules, qui te permettront de choisir le format d'affichage selon le texte affiché en A1, tout cela sans passer par du VBA.

Essaye avec le fichier joint.

 

[maxim47]

re
je vois ce que tu as fais, le problème c'est que ça marche une fois et après ça reste bloqué sur la dernière devise et ça ne change plus

 

[Nairolf]

Si tu veux étirer la cellule vers le bas en prenant en compte la cellule A1, puis A2, puis A3..., il faut changer les formules des MFC en mettant $A1 au lieu de $A$1.

Le $ à pour vocation de bloquer la cellule appelée.

 

[mapomme]

Bonjour maxim47 et bienvenue sur XLD ,

Avec une petite macro. Les constantes (pays et devises) sont déclarées en constante dans Module1.
On change le format quand la cellule A1 ou B1 est modifiée.

 

[maxim47]

Bonjour mapomme
ton fichier marche bien exactement ce que je cherchai maintenant il faut que je l'adapte à mon fichier final, merci aussi à Nairolf pour ses propositions

 

[maxim47]

je reviens vers toi mapomme j'ai réussi à adapter à mon fichier mais comme la commande doit se répéter sur 94 lignes là je cale

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a1:b1"), Target) Is Nothing Then formater Range("b1"), Range("a1")
End Sub

range a1 va de a1 : a98 et b1 de b1:b98
je n'arrive pas à modifier la macro
merci d'avance si il y a une solution

 

[mapomme]

Re,

voir modifications dans fichier joint...
C'est mieux ?

 

[maxim47]

super merci ça marche nikel encore merci