Format date dans un textbox

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:

---

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

---

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

Code:

---

NumberFormat-m/d/yyyy

---

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

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:

---

1 2 3 4

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

---