/VBA/Faire appel à la mise en forme conditionnelle vba excel

Faire appel à la mise en forme conditionnelle vba excel

Sub testMFC()
 Dim i As Long, dl As Long
 Dim plage As Range

   Application.ScreenUpdating = False

    With Sheets("Suivi des commandes")
      dl = .Range("A" & Rows.Count).End(xlUp).Row
      Set plage = .Range("J3:J" & dl)
       With plage
        .FormatConditions.Delete
        .FormatConditions.Add(xlExpression, , "=ET($I3="""";$J3="""")").Interior _
         .Color = RGB(224, 224, 224)   'CAS 1 : GRIS
        .FormatConditions.Add(xlExpression, , "=ET(Réglages!$D$4<$J3;$K3="""")").Interior _
         .Color = RGB(0, 255, 0)       'CAS 2 : VERT
        .FormatConditions.Add(xlExpression, , "=ET(Réglages!$D$4>$J3;$K3=""OUI"")").Interior _
         .Color = RGB(0, 255, 0)       'CAS 3 : VERT
        .FormatConditions.Add(xlExpression, , "=ET(Réglages!$D$4>$J3;$K3=""NON"")").Interior _
         .Color = RGB(255, 0, 0)       'CAS 4 : ROUGE
        .FormatConditions.Add(xlExpression, , "=ET(Réglages!$D$4>$J3;$K3="""")").Interior _
         .Color = RGB(224, 224, 224)   'CAS autre : Gris  (si < et rien)
        .FormatConditions.Add(xlExpression, , "=ET(Réglages!$D$4<$J3;$K3=""NON"")").Interior _
         .Color = RGB(255, 0, 0)       'CAS autre : ROUGE (si > et NON)
       End With
    End With

    Application.ScreenUpdating = True
End Sub

Source: forum.excel-pratique.com

Similar codes

0 vote203 views1 answer
Get month number from month name vbnet
VBA
0 vote188 views1 answer
Vba exit while
VBA
22 votes327 views1 answer
Xl vba check for folder
VBA
0 vote212 views1 answer
Vba random number
VBA
5 votes179 views1 answer
Excel vba high word from Long Integer
VBA
0 vote191 views1 answer
Find days in month vba
VBA
0 vote181 views1 answer
Excel vba populate array with cell values
VBA
0 vote157 views1 answer
How to sort datagridview in vb.net
VBA
1 vote205 views2 answers
Get all column names from excel vba
VBA
1 vote171 views1 answer
Vba listindex select multiple items vba
VBA