/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 vote169 views1 answer
Vba get relative cell address
VBA
0 vote188 views1 answer
Excel vba protect worksheet without password
VBA
0 vote176 views1 answer
Vba shape transparent
VBA
0 vote218 views1 answer
Vba line feed
VBA
0 vote170 views1 answer
Hello world vb.net
VBA
0 vote185 views1 answer
Vba horizontalalignment
VBA
5 votes207 views1 answer
Excel vba get user selected range
VBA
0 vote201 views1 answer
Excel vba DisplayAlerts
VBA
4 votes126 views2 answers
Vba last row
VBA
3 votes181 views1 answer
Excel vba make long from two shorts
VBA