Obliger à saisir une date

Salut,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not (IsDate(Me.TextBox1.Value)) Then MsgBox "Erreur date"
End Sub

A+
Jc
"Vincent" <alpha@ducentaure.fr> a écrit dans le message de news:
%23Xwyz9crEHA.3876@TK2MSFTNGP15.phx.gbl...

BOnjour
J'ai un textbox, comment faire afin d'obliger l'utilistaeur à saisir une
date dans celui-ci ?
Merci et bonne journée

Bonjour Vincent,

à placer dans le module privé du formulaire...

Private Sub TBDate_Change()
If TBDate.Text = "" Then
Exit Sub
End If
If Right(TBDate.Text, 1) <> "/" And _
(Right(TBDate.Text, 1) < "0" Or Right(TBDate.Text, 1) > "9") Then
MsgBox "Date requise"
TBDate.Text = ""
TBDate.SetFocus
Exit Sub
End If
End Sub

Private Sub TBDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MaDate As Date
On Error GoTo NonDate
MaDate = CDate(TBDate.Text)
MsgBox MaDate
Exit Sub
NonDate:
MsgBox "Date requise"
TBDate.Text = ""
TBDate.SetFocus
Cancel = True
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Vincent" <alpha@ducentaure.fr> a écrit dans le message de news:
%23Xwyz9crEHA.3876@TK2MSFTNGP15.phx.gbl...

BOnjour
J'ai un textbox, comment faire afin d'obliger l'utilistaeur à saisir une
date dans celui-ci ?
Merci et bonne journée