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

[Morihei]

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]

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

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

à+
Philippe

 

[Morihei]

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