Bonjour,
Je souhaiterai colorier une ligne si la date est inférieure à la date du jour.
La date est en colonne G
Le style "Neutre est paramétré avec la couleur souhaitée
Il me manque la partie en rouge
Sub depasse_theme()
Application.ScreenUpdating = False
For li = 3 To 600
If Cells(li, 7).Date = <AUJOURDHUI() - 1 Then
For Col = 3 To 11
Range(Cells(li, Col).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Style = "neutre"
Next Col
End If
Next li
End Sub
Merci d'avance
Je souhaiterai colorier une ligne si la date est inférieure à la date du jour.
La date est en colonne G
Le style "Neutre est paramétré avec la couleur souhaitée
Il me manque la partie en rouge
Sub depasse_theme()
Application.ScreenUpdating = False
For li = 3 To 600
If Cells(li, 7).Date = <AUJOURDHUI() - 1 Then
For Col = 3 To 11
Range(Cells(li, Col).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Style = "neutre"
Next Col
End If
Next li
End Sub
Merci d'avance