Imposer une date au format dd/mm/aaaa dans une textbox

Bonjour,

Tout d'abord bravo pour ce forum et notamment ces cours vidéos. Je découvre le VBA, et ma première expérience consiste à réaliser un userform pour remplir une table.

Je suis presqu'au bout, je bute sur un contrôle. Dans une textebox, je voudrais imposer à l'utilisateur de saisir une date correcte de la forme dd/mm/aaaa. Et j'insiste bien au format dd/mm/aaaa....et non pas dd/mm

Mon test où j'imbrique une série de conditions :

elseif not IsDate(Me.matextbox) then

msgbox("ce n'est pas au format date")

me.matextbox.setfocus

else

Activecell.offset(0,8).value=matextbox

end if

Cela fonctionnairait presque....mais l'utilsateur a la possibilite de saisir uniquement dd/mm au lieu de la date complète, c'est à dire sans l'année. Comment faire afin qu'il respecte l'intégralité du format.

Vous remerciant par avance.

Bonjour,

Une piste :

Private Sub matextbox_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Len(matextbox.Text) <> 10 Or Not IsDate(matextbox.Text) Then

        MsgBox "Entrez la date avec le format 'jj/mm/aaaa' !"
         matextbox.Text = ""
         matextbox.SetFocus
        Exit Sub

    End If

End Sub

Private Sub matextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

        Case 47 To 57 'seulement le slash et les chiffres

        Case Else: KeyAscii = 0

    End Select

End Sub

Merci Theze, c'est tout simplement excellent !

Le "or len(matext)<>10....là ça paraît si simple...mais bon pas eu le réflexe. (j'ai honte)

Ensuite pour le code ascii, je l'ai mis dans le contrôle de la textbox concernée et ça fonctionne nickel !!!

Il ne reste plus que le format pourcentage à voir....mais je vais chercher un peu sur ce forum génial.

Merci !!!