Une amélioration :
Pour être certain que votre saisie est correcte, et que vous avez bien saisi une date, il serait utile de rajouter :
1 / L'insertion automatique du slash / (Vous écrivez et les slashs sont tapés automatiquement)
Private Sub textbox3_Change()
Dim Valeur: Valeur = Len(textbox3.Text)
If Valeur = 2 Or Valeur = 5 Then textbox3= textbox3& "/"
If Valeur < 10 Then Exit Sub
End sub
2 / Le comptage automatique du nombre de caractères saisis ( 10 pour le format jj/mm/aaaa )
Private Sub textbox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(textbox3.Text) Then textbox3.Text = ""
If Len(textbox3.Text) < 10 Then textbox3.Text = ""
End Sub
3 / La saisie doit être numérique
Private Sub textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Case Else
KeyAscii = 0
End Select
End Sub
Ciao
Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois