/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

6 votes244 views1 answer
Excel vba get the path of current workbook
VBA
0 vote282 views1 answer
Excel vba round to whole number
VBA
0 vote234 views1 answer
Vbnet check if string is only symbols
VBA
0 vote274 views1 answer
Vba dictionary length
VBA
0 vote227 views1 answer
Get current year vb
VBA
0 vote245 views1 answer
Vba exit while
VBA
1 vote229 views1 answer
Vba listindex select multiple items vba
VBA
0 vote237 views1 answer
Windows Presentation Foundation dark title bar
VBA
3 votes244 views1 answer
Extract the nth word from a text string
VBA
0 vote241 views2 answers
Do until loop vba
VBA