Format date "dd/mm/yyyy" avec IsDate

Bonjour

SVP je veux : Lorsque vous saisissez seulement trois chiffres( "dd/mm/yyy") , le message d'erreur s’affiche.

Merci

    If Not IsDate(TextBox1) Then
        MsgBox "FORMAT DE DATE EST INCORRECT", 16
    End If

131.xlsm (15.59 Ko)

Bonjour ANASS1,

Voir dans ce fil créé par Steelson, pour la gestion de dates:Saisie de dates

Bonsoir

A essayer :

Private Sub CommandButton1_Click()
    If Not TextBox1.Text Like "##/##/####" Then
        MsgBox "FORMAT DE DATE EST INCORRECT"
    End If
End Sub

Cordialement

Bonsoir

Merci X Cellus , le fil est très important...

Merci Dan c'est parfait

A nouveau,

Tu pourras t'y référer si ton besoin en date est différent que celui dont tu as besoin maintenant.

Et que Dan t'a justement proposé.

Merci bcp X Cellus

Cordialement