1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub Macro1()
'
'
With Range("A:N")
'Supprime les MFC existantes
.FormatConditions.Delete
'Ajoute la condition 1 (Vrai lorsque la cellule Statut = SYB)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$F2=""TOTO"""
'Ajoute une condition 2 (Vrai lorsque la cellule Statut = TER)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$F2=""TATA"""
With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition 1 sera vraie.
.Interior.ColorIndex = 34 'Bleu clair
End With
With .FormatConditions(2)
'Définit la couleur de fond de la cellule lorsque la condition 2 sera vraie.
.Interior.ColorIndex = 15 'Gris
End With
End With
End Sub |
Partager