Discussion :

[thomasdu40]

Bonjour,

Je vais vous paraître stupide mais après toutes les recherches concernant le format d'une date saisie dans un textbox je m'avoue perdu. Tellement de réponses différentes et apparemment aucune solution ne fonctionne.

J'ai le textbox4 où on inscrit une date au format dd/mm/aaaa. Si c'est pas ce format un message d'erreur apparaît du style "veuillez saisir correctement la date".

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Len(TextBox4.Value) = 10 And IsDate(TextBox4.Value) Then

Je pense qu'il faut y intégre aussi le format :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NumberFormat-m/d/yyyy

et ensuite le MsgBox
Dur dur toutes les solutions qui sont proposées.

[thomasdu40]

Bonjour,

Le code ci-dessous reproduit correctement la date saisie dans le TextBox4.

Mais je voudrai en plus que si la personne saisie une date au format dd/mm/aa un message apparaisse à l'écran du style "Veuillez saisir la date au format dd/mm/aaaa".

Si vous avez une astuce.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox4_Change()
TextBox1.MaxLength = 10 
If Len(TextBox4) = 2 Or Len(TextBox4) = 5 Then TextBox4 = TextBox4 & "/"
End Sub