Validation d'une UserForm

Bonjour à tous,
J'ai une nouvelle fois besoin de votre aide précieuse.
J'ai essayé d'avancer le plus possible sur mon userform avec le peu de connaissance que j'ai en VBA mais aussi avec l'aide des différents forum.
Cependant je bloque un peu au niveau de la validation.

Je vous explique, j'ai créé un userform suivante : mais celui-ci
Pièce jointe 597384

Le code du bouton de validation est le suivant :
Les msgbox se declenchent bien si le format n'est pas bon mais rien ne se passe à la validation sauf si je supprime la ligne de la textbox4

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

If TextBox1.Value = "" Then MsgBox "Merci de compléter le nom du collaborateur": _ TextBox1.SetFocus: Exit Sub   If Len(TextBox1) < 3 Then MsgBox "Merci de compléter le nom du collaborateur": _ TextBox1.SetFocus: Exit Sub     If ListBox1.Value = "" Then MsgBox "Merci de sélecionner le poste du collaborateur": _ ListBox1.SetFocus: Exit Sub     If TextBox2.Value = "" Then MsgBox "Merci de compléter le rayon du collaborateur": _ TextBox2.SetFocus: Exit Sub   If Not IsDate(TextBox4.Value) Then MsgBox "Merci d'indiquer la date d'ancienneté au format date JJ/MM/AA" : _ TextBox4.SetFocus: Exit Sub

---

Merci d'avance à ceux qui pourront m'aider.

Nadège

Bonjour,

Il semble qu'il y ait un saut de ligne intempestif au bout de la ligne n°15 qui devrait s'afficher ainsi:

Code:

---

1 2	If Not IsDate(TextBox4.Value) Then MsgBox "Merci d'indiquer la date d'ancienneté au format date JJ/MM/AA": _ TextBox4.SetFocus: Exit Sub

---

Utiliser les : n'a pas que des avantages!
Cordialement.

Merci bcp, effectivement c'était bien cela et j'étais passé au dessus.

Bonne journée.