Discussion :

[sweetShane]

Bonjour.
Je cherche à attribuer une couleur aux cellules qui contiennent une chaîne de caractères.
Les valeurs des cellules peuvent contenir un retour chariot.
Dans mon exemple, le champ de recherche est le tableau (C4:J37)
La chaîne de caractères à chercher est définie dans la cellule L1 (pour info, il s’agit d’une liste déroulante).

Voici mon petit bout de code actuel :

Code :

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

1
2
3
4
5
 For Each cel In Range("C4:J37")
cel.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=ESTNUM(CHERCHE(L1;cel))"
Selection.FormatConditions(1).Interior.ColorIndex = 44
Next

Ce code ne fonctionne pas.
Si je teste la formule sur une seule cellule (exemple : Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ESTNUM(CHERCHE(L1;C4))), ça marche donc je suppose que le problème vient de la boucle.
Quelqu'un peut m'aider ?

[fring]

Bonjour,

Essaye comme ceci

Code :

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

1
2
3
4
5
6
7
8
Dim cel As Range
For Each cel In Range("C4:J37")
If cel = Range("L1") Then
cel.Interior.ColorIndex = 44
Else
cel.Interior.ColorIndex = xlNone
End If
Next

[sweetShane]

Ton code fonctionne pour les cellules égales à ma chaîne de caractères mais mon problème vient de là : je ne cherche pas à tester une égalité mais le fait que mes cellules contiennent ma chaîne de caractères.

En parcourant le forum, j'ai l'impression que c'est le mix entre l'expression excel et le code VBA qui bloque (petite précision : je suis débutante).

J'ai aussi essayé avec la fonction instr mais là, ça ne marche pas pour les cellules qui ont un retour charriot.

[fring]

D'accord, dans ce cas essaye plutot ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test2()
Dim cel As Range
For Each cel In Range("C4:J37")
If cel.Value Like "*" & Range("L1").Value & "*" Then
cel.Interior.ColorIndex = 44
Else
cel.Interior.ColorIndex = xlNone
End If
Next
End Sub

[sweetShane]

Avec ce code, ça fonctionne à condition de relancer la macro à chaque fois que je change de recherche (cellule L1).
Par rapport à mon besoin, il faudrait que je cherche en plus à activer la macro automatiquement dès que le contenu de L1 change. Et là, ça se complique... pour moi en tout cas.

C'est pour ça que ça m'intéressait de trouver une solution avec Selection.FormatConditions.Add Type:=xlExpression, Formula1:= ...
Peut-être faut-il traduire en VBA mon expression ESTNUM(CHERCHE(L1;cel)) ?

Dans tous les cas, merci pour ton aide.

[patbou]

bonsoir

si tu veux declenché ta macro a chaque fois qu un element de la liste change

Code :

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

1
2
3
4
 
Private Sub ListBox1_Change()
ta macro
End Sub