Problème fonction date

Bonjour je voulais crée un code pour obliger les personnes à respecter la syntaxe de date, est donc mettre que des chiffres et au format comme ceci jj/mm/aaaa avec un message erreur quand c'est pas le cas... cela fonctionne très bien mais lorsque que je met me bon format cela me met aussi un message erreur pourquoi?

Merci d'avance

Private Sub TextBox3_AfterUpdate()

On Error GoTo Messagerreur

TextBox3 = Format(TextBox3, "Short date")

Messagerreur:

Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa")

TextBox3 = Empty

End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not ((KeyAscii > 46 And KeyAscii < 58)) Then

KeyAscii = 0

End If

End Sub

Bonjour toutes et tous

peut-être l'erreur sans certitude

Le format de date est-il avec un symbole point '.' ou slash '/' ? (exemple: 15.07.2019 ou 15/07/2019)

' Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa")

le code ASCII est 47 pour la barre oblique (slash /)

le code ASCII est 46 pour le point (.)

Bonjour,

Merci non c'est pas cela..

si je met 47 il ne me prend plus /

enfaite meme si j'inscris le bon format exemple 20/10/2020 il marque le message d'erreur

re,

il manque un Else if .Then... End If

Private Sub TextBox3_AfterUpdate()
On Error GoTo Messagerreur
TextBox3 = Format(TextBox3, "Short date")
Messagerreur:
Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa")
TextBox3 = Empty
End Sub

Private Sub TextBox3_AfterUpdate()
On Error GoTo Messagerreur
If TextBox3 = Format(TextBox3, "Short date") Then
TextBox3 = Format(TextBox3, "Short date")
Else 
 Messagerreur:
Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa")
End If
End Sub

Private Sub TextBox3_AfterUpdate()
On Error GoTo Messagerreur
If TextBox3 = Format(TextBox3, "Short date") Then
Msgbox ("Date ok, merci")
Else 
 Messagerreur:
Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa")
End If
End Sub

@ 3ème test à tester

Private Sub TextBox3_AfterUpdate()
On Error GoTo Messagerreur
If TextBox3 = Format(TextBox3, "Short date") Then
Msgbox ("Date ok, merci")
Exit Sub                              ' ajouter,  on sort de la procédure
Else 
 Messagerreur:
Msgbox (" le format introduit n'est pas valide le format de date est jj/mm/aaaa")
End If
End Sub

J'ai un doute car moi sans fichier c'est hard lol

Ah bon ou?

Merci j'ai simplifier j'ai direct mis la date du jour