Date et * dans une boite de dialogue

Question

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

gmb · Answer

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 ...