Discussion :

[ledisciple]

Bonjour

ceci fonctionne :

Code :

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

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 !

[SMBeccaria]

Bonjour,

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

Code :

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

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