couleur attribuée à des mots

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2009

• #2

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

 

Pièces jointes

• couleur(1).xls

  41 KB · Affichages: 81
• couleur(1).xls

  41 KB · Affichages: 91
• couleur(1).xls

  41 KB · Affichages: 92

Vote positif 0 Vote négatif

M

mary1

Guest

• 25 Octobre 2009

• #3

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!

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Octobre 2009

• #4

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

 

Pièces jointes

• couleur(1).xls

  43 KB · Affichages: 60
• couleur(1).xls

  43 KB · Affichages: 62
• couleur(1).xls

  43 KB · Affichages: 58

Vote positif 0 Vote négatif

M

mary1

Guest

• 25 Octobre 2009

• #5

Re : couleur attribuée à des mots

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

 

Vote positif 0 Vote négatif