Bonjour,

je souhaiterais créer une marco avec des case qui permettrait de colorier la cellule si le texte comprend une partie de texte:
Exemple:
si le texte de la cellule comprend le mot ART alors couleur bleue
si le texte de la cellule comprend le mot BRE alors couleur rose

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Byte, plage As Range
If Intersect(Target, Range("E6:E95")) Is Nothing Then: Exit Sub
 
lig = Target.Row
Set plage = Range(Cells(lig, 5), Cells(lig, 5))
 
Select Case Target
     Case like "*ART*"
        plage.Interior.ColorIndex = 41
     Case like "*BRE*"
        plage.Interior.ColorIndex = 38
 
    Case Else
        plage.Interior.ColorIndex = -4142 ' enlève la couleur
End Select
 
Set plage = Nothing
End Sub
J'ai des erreurs de syntaxe au niveau du like, pouvez-vous m'aider?
Merci d'avance pour votre reponse.