=NON(ESTERREUR(CHERCHE("bleu";A1))) et copier le format vers le bas
...Patrick
"Guy72" a écrit dans le message de news: e9BI%
Bonjours à tous, Avec la mise en format conditionnelle, je peux surligner 3 lignes de différentes couleurs :
Exemple.A1 :A5.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Daniel
Bonsoir. Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub If [Target] = "rouge" Then Target.EntireRow.Interior.ColorIndex = 3 Exit Sub End If If [Target] = "jaune" Then Target.EntireRow.Interior.ColorIndex = 6 Exit Sub End If 'etc. End Sub
Cordialement. Daniel "Guy72" a écrit dans le message de news: e9BI%
Bonjours à tous, Avec la mise en format conditionnelle, je peux surligner 3 lignes de différentes couleurs :
Exemple.A1 :A5.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Possible ?????? si oui comment.
Merci à l'avance
Guy
Bonsoir.
Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
If [Target] = "rouge" Then
Target.EntireRow.Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Target.EntireRow.Interior.ColorIndex = 6
Exit Sub
End If
'etc.
End Sub
Cordialement.
Daniel
"Guy72" <guy72@nospam.ouf> a écrit dans le message de news:
e9BI%23ISTGHA.1160@TK2MSFTNGP09.phx.gbl...
Bonjours à tous,
Avec la mise en format conditionnelle, je peux surligner 3 lignes de
différentes couleurs :
Exemple.A1 :A5.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
Bonsoir. Essaie (en rajoutant les autres couleurs) :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub If [Target] = "rouge" Then Target.EntireRow.Interior.ColorIndex = 3 Exit Sub End If If [Target] = "jaune" Then Target.EntireRow.Interior.ColorIndex = 6 Exit Sub End If 'etc. End Sub
Cordialement. Daniel "Guy72" a écrit dans le message de news: e9BI%
Bonjours à tous, Avec la mise en format conditionnelle, je peux surligner 3 lignes de différentes couleurs :
Exemple.A1 :A5.
En Bleu si je trouve le mot Bleu.
Rouge si je trouve le mot Rouge.
Jaune si je trouve le mot Jaune.
Mais je voudrais faire la même chose avec le Vert, le Crème ETC...
