Masque de saisie pour textbox

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

Code:

---

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:

---

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.

Bonjour,

Je suppose que tu valides via un bouton sur ton UserForm
Voici une proposition

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub CommandButton1_Click()   With Me.TextBox1 If .Value <> Format(.Value, "dd-mm-yyyy") Then MsgBox "saisie date de début non valide" .Value = "" .SetFocus Exit Sub End If End With   With Me.TextBox2 If .Value <> Format(.Value, "dd-mm-yyyy") Then MsgBox "saisie date de fin non valide" .Value = "" .SetFocus Exit Sub End If End With   'action si la saisie des deux dates est valide Unload Me   End Sub

---