"Caractère joker" avec Selection.FormatConditions.Add

Bonjour

ceci fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Columns("I:I").Select Range("I2").Activate   Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=""Validé Sans Réserves""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -11489280 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False

---

Par contre, je sais pas trop comment mettre un éventuel caractère joker pour que la couleur puisse se mettre aussi dans les cellule ou il y aurait " Ceci est Validé Sans Réserves"

Merci !

Bonjour,

Essayez de remplacer vos lignes 4 et 5 par celle ci:

Code:

---

1 2	Selection.FormatConditions.Add Type:=xlTextString, String:= _ "Validé Sans Réserves", TextOperator:=xlContains

---