(RESOLU) Interdire sélection date ultérieur a today DTPicker

Morihei · 21 Janvier 2012

Bonsoir à tous,

après moulte recherche impossible de trouver comment interdire, sur un userform, la sélection sur un DTPicker d'une date inférieur à celle du jour.

Merci par avance de vos lumières 😎

phlaurent55 · 22 Janvier 2012

Re : Interdire sélection date ultérieur a today DTPicker

Bonjour morihei

après moulte recherche

??????????????????????????????????????

avec ce code:
si une date antérieure est choisie, la date du jour sera affichée

Code:

Private Sub DTPicker1_Change()
If DTPicker1.Value < Date Then
DTPicker1.Value = Date
MsgBox ("Entrez une autre date ")
End If
End Sub

à+
Philippe

Morihei · 22 Janvier 2012

Re : Interdire sélection date ultérieur a today DTPicker

Bonjour,

merci à toi c'est excatement çà
juste une erreur de ma part :
il faut lire = "... date sup; à celle du jour..." donc :

Private Sub DTPicker1_Change()
If DTPicker1.Value > Date Then
DTPicker1.Value = Date
MsgBox ("Sélection d'une date supérieur à celle du jour INTERDITE ! ")
End If
End Sub

Merci

(RESOLU) Interdire sélection date ultérieur a today DTPicker

Morihei

Guest

phlaurent55

Nous a quittés en 2020

Morihei

Guest

Discussions similaires

(RESOLU) Interdire sélection date ultérieur a today DTPicker

Morihei

Guest

phlaurent55

Nous a quittés en 2020

Morihei

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency