Date et * dans une boite de dialogue

Quelqu'un aurait-il la solution ?

Comment faire pour que dans la zone de texte d'une boite de dialogue je puisse avoir soit la date ou soit une (*) étoile dans le cas ou je n'ai pas de date à saisir ? L'étoile pour forcer justement à saisir une donnée que l'on ne connait pas.

Ci dessous ma macro; mais elle laisse passer la frappe de lettre à la saisie mais le message d'erreur intervient à la fin de la procédure forcemment....

Private Sub dn_Change()

Dim valeur As Byte

Dim donnee As Byte

dn.MaxLength = 8

valeur = Len(dn)

If valeur = 1 Then Me.formatDate.Visible = True

If valeur > 7 Then Me.formatDate.Visible = False

If valeur = 2 Or valeur = 5 Then dn = dn & "/"

' formatDate = ("**/**/**")

' donnee = CDate(valeur)

End Sub

Dim valeur As Byte

If Not IsDate(dn) Then

MsgBox "La date de naissance semble incorrect !", vbInformation, "Erreur, format érroné"

Exit Sub

End If

Bonjour et bienvenue sur le forum

Si j'ai bien compris...

Mets cette partie de code en début de la procédure associée au bouton qui valide les données saisies dans ta boite de dialogue .

Dim valeur As Byte
 If Not IsDate(dn) Then
 MsgBox "La date de naissance semble incorrect !", vbInformation, "Erreur, format érroné"
 Exit Sub
 End If

Bye !

Merci pour votre réponse.

Malheureusement c'est pire car dans ce cas même les chiffres ne passent plus.

Ce que j'aimerai c'est que lorsque je saisie des chiffres ou le signe * en remplacement des chiffres je n'ai pas de message d'erreur lorsque l'étoile remplace les chiffres.

Sauf si d'autres signes ou lettres sont saisies bien entendu.

Amicalement