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 ?