Bonjour,
Voici le code que j'ai en ce moment pour des textboxdate dans une userform:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'Après la saisie de la date de début
Private Sub TextBoxDate1_AfterUpdate()
If Not IsDate(TextBoxDate1) Then
MsgBox "Le texte saisi n'est pas une date ou est mal saisi", vbExclamation
TextBoxDate1 = ""
End If
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'Après la saisie de la date de fin
Private Sub TextBoxDate2_AfterUpdate()
If Not IsDate(TextBoxDate1) Then
MsgBox "Le texte saisi n'est pas une date ou est mal saisi", vbExclamation
TextBoxDate2 = ""
End If
End Sub
Dans chacune de ces textboxdate je saisie une date de début et de fin.
Je souhaiterai que quand je ne saisie pas la date sous le format suivant jj-mm-aaaa qu'il apparaisse un message d'erreur (situé dans le code précédent).
Je tiens à préciser que si ce n'est pas des tirets entre les jours et les mois et les mois et années que le message d'erreur apparraisse aussi.
Si il y erreur dans la saisie je souhaite qu'aprés que le message d'erreur soit apparu que la textbox se réinitialisie

Merci d'avance pour votre aide.