Bonjour le forum,
Suite à mon essai concluant sur le forum hier, je fais encore appel à vous pour m'aider s'il vous plaît.
J'ai un fichier avec plusieurs lignes de cellules.
La colonne A contient du texte. La B des dates.
Pour la colonne A parfois le texte contient les mots "cadets" ou "minimes" ou "benjamin".
J'aimerais que si l'un ou l'autre mot figure dans la cellule, celle-ci se colore d'une façon différente en fonction du mot.
Et si, possible, que la cellule d'à côté se colore aussi.
J'avais récupéré un code de ce style sur le forum mais je n'arrive pas à le faire fonctionner
Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
If Intersect(zz, [A1:B20]) Is Nothing Then Exit Sub
Select Case zz
Case "": zz.Interior.ColorIndex = 0
Case "Benjamin": zz.Interior.ColorIndex = 3
Case "P": zz.Interior.ColorIndex = 4
Case "R": zz.Interior.ColorIndex = 6
Case "E": zz.Interior.ColorIndex = 5
Case "A": zz.Interior.ColorIndex = 15
Case "D": zz.Interior.ColorIndex = 40
Case Else: zz.Interior.ColorIndex = xlNone
End Select
End Sub
Je vous remercie par avance de vos nombreuses réponses je l'espère.
Lyric
Suite à mon essai concluant sur le forum hier, je fais encore appel à vous pour m'aider s'il vous plaît.
J'ai un fichier avec plusieurs lignes de cellules.
La colonne A contient du texte. La B des dates.
Pour la colonne A parfois le texte contient les mots "cadets" ou "minimes" ou "benjamin".
J'aimerais que si l'un ou l'autre mot figure dans la cellule, celle-ci se colore d'une façon différente en fonction du mot.
Et si, possible, que la cellule d'à côté se colore aussi.
J'avais récupéré un code de ce style sur le forum mais je n'arrive pas à le faire fonctionner
Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
If Intersect(zz, [A1:B20]) Is Nothing Then Exit Sub
Select Case zz
Case "": zz.Interior.ColorIndex = 0
Case "Benjamin": zz.Interior.ColorIndex = 3
Case "P": zz.Interior.ColorIndex = 4
Case "R": zz.Interior.ColorIndex = 6
Case "E": zz.Interior.ColorIndex = 5
Case "A": zz.Interior.ColorIndex = 15
Case "D": zz.Interior.ColorIndex = 40
Case Else: zz.Interior.ColorIndex = xlNone
End Select
End Sub
Je vous remercie par avance de vos nombreuses réponses je l'espère.
Lyric