saisie de date dans textbox

[harley topper]

Bonjour le forum,

un petit mot pour vous remercier a tous pour votre aide tout au long de l'élaboration de mon projet excel,

j'utilise une userform dans le but d'effectuer de la saisie de données,

parmi les données à saisir il y a des dates,

ma question est la suivante:
lorsque je saisie dans ma textbox une date éronnée, mon programme plante, car il ne reconnait pas un format de type date.

puis je imposer la saisie dans la textbox d'une date sous le format: "jj/mm/aa" et ,
dans le cas ou la date serait mal saisie, il serait bon de faire apparaitre une msgbox pour signaler l'erreur de saisie

Je reste a votre écoute!!!

 

[Hervé]

Bonjour

2 macros que j'utilise souvent pour la gestion des dates dans les textbox.

La premiere de Maître Ti , est géniale pour imposer le format JJ/MM/AA lors de la saisie.

Private Sub TextBox1_Change()
'aide à la saisie de la date
Dim Texte As String
Texte = TextBox1.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "/"
End Select
TextBox1.Text = Texte
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'verifie format date
If IsDate(TextBox1.Text) Then
TextBox1.Text = Format(TextBox1.Value, "dd/mm/yy")
Else
MsgBox"le format de date est incorrect.", vbOKOnly + vbCritical, "Attention....": Exit Sub
End If

End Sub

salut
Hervé

 

[harley topper]

salut hervé,
merci, tes macro on répondu à mes attentes mais plus que le format, est il possible d'imposer la saisie d'une date juste, c'est à dire rendre impossible la saisie de ces exemples:
16/13/08 ou le mois est erronné
35/12/06 ou le jour est erroné
merci d'avance pour ta réponse