afficher devise en fonction du pays

djidji59430

XLDnaute Barbatruc

• 3 Avril 2018

• #2

Bonjour,

Une façon de faire

 

Pièces jointes

• devise.xlsm

  10.2 KB · Affichages: 37

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 3 Avril 2018

• #3

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.

 

Pièces jointes

• devise_Nairolf.xlsx

  11 KB · Affichages: 46

Vote positif 0 Vote négatif

M

maxim47

XLDnaute Nouveau

• 3 Avril 2018

• #4

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

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 3 Avril 2018

• #5

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Avril 2018

• #6

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.

 

Pièces jointes

• maxim47-devise- v1.xlsm

  15.3 KB · Affichages: 56

Vote positif 0 Vote négatif

M

maxim47

XLDnaute Nouveau

• 3 Avril 2018

• #7

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

 

Vote positif 0 Vote négatif

M

maxim47

XLDnaute Nouveau

• 3 Avril 2018

• #8

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Avril 2018

• #9

Re,

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

 

Pièces jointes

• maxim47-devise- v2.xlsm

  19.5 KB · Affichages: 42

Vote positif 0 Vote négatif

M

maxim47

XLDnaute Nouveau

• 3 Avril 2018

• #10

super merci ça marche nikel encore merci

 

Vote positif 0 Vote négatif