Macro: case avec un like

Version imprimable

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:

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.

19/11/2009, 18h18
ucfoutu

Bonjour,

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

Citation:

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 :

Citation:

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.

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:

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...;)