Sub MeFC()
With Sheets("Besoins").Range("A2:W300") 'Sélection des plages où doit s'appliquer la MeF
'Supprime les MFC existantes
.FormatConditions.Delete
'Ajoute une condition (Vrai lorsque la cellule est non vide)
.FormatConditions.Add Type:=xlExpression, Formula1:="=EST.IMPAIR($A2)"
.FormatConditions.Add Type:=xlExpression, Formula1:="=EST.PAIR($A2)"
With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.ColorIndex = 50
End With
With .FormatConditions(2)
.Interior.ColorIndex = 44
End With
End With
Sheets("Besoins").Range("P:P").FormatConditions.Delete
Sheets("Besoins").Range("P:P").Interior.Color = 65535
With Sheets("Besoins").Range("R2:R200") 'Sélection des plages où doit s'appliquer la MeF
'Supprime les MFC existantes
.FormatConditions.Delete
'Ajoute une condition (Vrai lorsque la cellule est non vide)
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="Retard livraison"
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="DATE 15 jours"
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="Retard composant"
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="Retard composant et livraison"
'DATE 15 jours
With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Font.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
With .FormatConditions(2)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.ColorIndex = 30
.Font.FontStyle = "Bold"
End With
With .FormatConditions(3)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Font.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
With .FormatConditions(4)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.ColorIndex = 3
.Font.FontStyle = "Bold"
End With
End With
End Sub