Comparaison de date par rapport a aujourdhui

Bonjour

je ne comprends pas pourquoi le 2 eme evenement ne fonctionne pas

j ai mes lignes qui se remplisse en vert et non la premiere en vert et la deuxieme en gris

Sub couleurdate()

Dim i, j, k, l, m, n As Integer

With Worksheets("Feuil1")

Dim thisDate As String
thisDate = Format$(Date, "dd/mm/yyyy")

'------------------------------------------------------------------------------
' ligne 7 a 11 maintenance

For i = 7 To 11

'validite superieure a date

If Cells(i, "a") <= thisDate And Cells(i, "a") <> "" Then

Cells(i, "a").Interior.Color = RGB(128, 255, 128)
Range("b" & i).MergeArea.Interior.Color = RGB(128, 255, 128)
Cells(i, "j").Interior.Color = RGB(128, 255, 128)


End If

'mise en place consigne superieure a date d aujourdhui

If Cells(i, "a") > thisDate And Cells(i, "a") <> "" Then

Cells(i, "a").Interior.Color = RGB(211, 211, 211)
Range("b" & i).MergeArea.Interior.Color = RGB(211, 211, 211)

Cells(i, "j").Interior.Color = RGB(211, 211, 211)

End If


Next i

end sub

Bonjour,

Il manque le "End With"

il faut intégrer la deuxième condition dans le même IF avec ElseIf.

Mieux vaut déclarer les dates en "Long" ou en "Double" s'il y a des heures associées.

Sub CouleurDate()
    Dim thisDate As Long
    Dim i, j, k, l, m, n As Integer
    With Worksheets("Feuil1")
        thisDate = Date
        '------------------------------------------------------------------------------
        ' ligne 7 a 11 maintenance
        For i = 7 To 11
            'validite superieure a date
            If CLng(Cells(i, "a")) <= thisDate And Cells(i, "a") <> "" Then
                Cells(i, "a").Interior.Color = RGB(128, 255, 128)
                Range("b" & i).MergeArea.Interior.Color = RGB(128, 255, 128)
                Cells(i, "j").Interior.Color = RGB(128, 255, 128)

            'mise en place consigne superieure a date d aujourdhui
            ElseIf CLng(Cells(i, "a")) > thisDate And Cells(i, "a") <> "" Then
                Cells(i, "a").Interior.Color = RGB(211, 211, 211)
                Range("b" & i).MergeArea.Interior.Color = RGB(211, 211, 211)
                Cells(i, "j").Interior.Color = RGB(211, 211, 211)
            End If
        Next i
    End With
End Sub

Cdlt

merci j essaye demain