Discussion :

[NadStin]

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


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 :

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

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

[EricDgn]

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 :

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

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.

[NadStin]

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

Bonne journée.