/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 vote215 views1 answer
Vba text to general
VBA
0 vote212 views1 answer
Vba word pdf table to excel
VBA
0 vote328 views1 answer
Vba line feed
VBA
0 vote263 views1 answer
Excel vba round to whole number
VBA
2 votes220 views2 answers
Vba code to remove duplicates from a column
VBA
1 vote225 views1 answer
Excel vba unload userform
VBA
0 vote227 views1 answer
Visual basic msdos
VBA
0 vote228 views1 answer
Vba string start with
VBA
7 votes224 views1 answer
Vba array declaration
VBA
1 vote231 views1 answer
Add rows to datagridview vb.net
VBA