Private Sub TextBox3_Change()
Sheets("BASE DE DONNES").Select
Dim Valeur As Byte
TextBox3.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox3)
If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/"
End Sub
Tu mes ce code là et tu ne pourra que écrire sous le format date (en tapant juste 05061993 par exemple ça t'écrira 05/06/1993)
Après il n'y a pas de condition d'écriture en plus, tu peux toujours mettre des lettres écrire des trucs, ça limite juste à 8 caractères (10 donc avec les deux /) et ça met les 8 caractère sous format de date.
Je ne sais pas si cela te suffit ?