XL 2010 target

[kaid]

bonsoir
svp
If target = 1 Then

j'aimerai travailler avec la date: If target = DATE Then comment faire

 

[Lone-wolf]

Bonsoir kaid

Après multiples exemples tu devrais le savoir, non??

Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, [G2:G80000]) Is Nothing Then
        If Target = Date Then
            MsgBox "C'est la date du jour"
        ElseIf Target > Date Then
            MsgBox "C'est une date à venir"
        Else
            MsgBox "La date est déjà passée"
        End If
    End If
    Application.EnableEvents = True
End Sub