couleur attribuée à des mots

[mary1]

bonjour, j'espère que quelqu'un pourra m'aider à résoudre mon problème:

A chaque fois que je rentre un mot (dans n'importe quel endroit de mon classeur [sur toutes les feuilles du classeur], je souhaite que l'ordinateur affiche la couleur correspondant au mot:
persil (rien)
fenouil (vert fluo)
ail (gris foncé)
banane (jaune)
cerise (rouge)
tomate (rouge)
pomme (bleu cyan)
carotte (violet fluo)

merci d'avance
mary1

 

[BOISGONTIER]

Re : couleur attribuée à des mots

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
[Couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.EnableEvents = True
End Sub


JB
Formation Excel VBA JB

 

[mary1]

Re : couleur attribuée à des mots

ça fonctionne impec merci

mais admettons que je place ces données (les noms avec les couleurs attribuées) sur la feuil1 que je nomme "donnees", je souhaite que sur toutes les feuilles ces données fonctionnent, comment puis-je faire?
par exemple sur la feuil2 je tape le mot "fenouil" il me met le mot avec sa couleur attribuée!

 

[BOISGONTIER]

Re : couleur attribuée à des mots

Voir PJ

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
[Couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.EnableEvents = True
End Sub


JB

 

[mary1]

Re : couleur attribuée à des mots

merci beaucoup BOISGONTIER, ça fonctionne du tonnerre
bonne journée et encore merci