XL 2010 target

kaid · 14 Avril 2017

bonsoir
svp
If target = 1 Then

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

Lone-wolf · 15 Avril 2017

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

XL 2010 target

kaid

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

XL 2010 target

kaid

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency