Discussion :

[BobDesign]

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.

[ucfoutu]

Bonjour,

Lu dans l'aide en ligne à propos de l'instruction Select Case :

expressionlist-n Si une instruction Case apparaît. Liste délimitée dont les éléments peuvent prendre l'une des formes suivantes : expression, expression To expression, Is comparisonoperator expression. Le mot clé To indique une plage de valeurs. Si vous utilisez To, la valeur la plus petite doit figurer avant To. Utilisez le mot clé Is avec les opérateurs de comparaison (sauf Is et Like) pour indiquer une plage de valeurs. S'il n'est pas indiqué, le mot clé Is est inséré automatiquement.

et à la rubrique Like :

opérateur de comparaison
Caractère ou symbole indiquant une relation entre plusieurs valeurs ou expressions. Il s'agit notamment des opérateurs inférieur à (<), inférieur ou égal à (<=), supérieur à (>), supérieur ou égal à (>=), différent de (<>) et égal (=). Les opérateurs de comparaison Is et Like peuvent également être utilisés. N'oubliez pas que les opérateurs Is et Like ne peuvent servir d'opérateurs de comparaison dans une instruction Select Case.

[ucfoutu]

Bon...

Alors ?

Si tu as peu de cas à traiter : ===>>> des If imbriqués
Si tu en as beaucoup, tu as intérêt à faire une fonction utilisant deux arrays...

Un exermple bâclé qui devrait t'inspirer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
  CommandButton1.BackColor = allons("bonjour", CommandButton1.BackColor)
  MsgBox "au suivant"
  CommandButton1.BackColor = allons("salut", CommandButton1.BackColor)
End Sub
 
Private Function allons(ch As String, c As Long) As Long
   mesfiltres = Array("*bon*", "*lu*", "*y*")
   mescouls = Array(vbRed, vbBlue, vbBlack)
   allons = c
   For i = 0 To UBound(mesfiltres)
     If ch Like mesfiltres(i) Then allons = mescouls(i): Exit For
   Next
End Function

Adapte...