XL 2010 target

kaid

XLDnaute Occasionnel
bonsoir
svp
If target = 1 Then

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

Lone-wolf

XLDnaute Barbatruc
Bonsoir kaid

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

VB:
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
174