Discussion :

[annecc55]

Bonjour tout le monde,
je suis en train de créer un formulaire, mais je rencontre un problème que je n'arrive pas à résoudre. (Je débute seulement en VBA)
J'aimerai créer un contrôle de saisie, il y a plusieurs textbox à remplir et j'aimerai les rendre obligatoire avant de pouvoir passer sur l'userform suivant grâce au commandbutton1.

Pour l'instant j'ai instauré ce code qui ne marche évidemment pas :

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
18
19
20
Private Sub CommandButton1_Click()
If UserForm8.TextBox13.Text = "" Then
MsgBox "Vous n'avez rien saisi;"
ElseIf UserForm8.TextBox10.Text = "" Then
MsgBox "Vous n'avez rien saisi;"
ElseIf UserForm8.TextBox12.Text = "" Then
MsgBox "Vous n'avez rien saisi;" 
ElseIf UserForm8.TextBox11.Text = "" Then
MsgBox "Vous n'avez rien saisi;" 
ElseIf UserForm8.TextBox14.Text = "" Then
MsgBox "Vous n'avez rien saisi;" 
ElseIf UserForm8.TextBox15.Text = "" Then
MsgBox "Vous n'avez rien saisi;"
End If
 
If UserForm8.TextBox13.Value = True And UserForm8.TextBox14.Value = True And UserForm8.TextBox15.Value = True And UserForm8.TextBox10.Value = True And UserForm8.TextBox11.Value = True And UserForm8.TextBox12.Value = True Then
Unload Me
UserForm7.Show
End If
End Sub

Merci d'avance pour l'aide que vous sauriez m'apporter. :-)

[DenisHen]

Bonjour,

Je pense qu'il faudrait choisir entre "TextBox13.Text" et "TextBox13.Value", non ?

Ou alors :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
If TextBox13.Text = "" Then MsgBox "Vous n'avez rien saisi dans le textBox13":Exit Sub
If TextBox10.Text = "" Then MsgBox "Vous n'avez rien saisi dans le textBox10":Exit Sub
....
....

[Neutthsch]

Salut Annecc,

Utilise des balises de code dans tes messages

Code :

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

...

, Si la charte le stipule ce n'est pas pour faire joli... enfin si aussi mais pas que!

http://club.developpez.com/regles/

Et remoi,

Dans un cas où tes numéros de TextBox se suivent comme ça, je te conseille l'incrément. Ici TexNum représente mes numéros de textbox.

et je lui demande qu'il vérifie pour chaque "TextBox" si elle est vide. Si il en trouve une, il envoie une msgbox et quitte la macro (en rendant ainsi la main à l'opérateur).
Si aucun vide trouvé il quitte l'userform.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
For TexNum = 10 To 15
    If Me.Controls("TextBox" & TexNum) = "" Then
        MsgBox "Une zone de texte est vide"
        Exit Sub
    End If
Next
Unload Me
 
 
End Sub

Bon c'est du tout mâché, si il y a le moindre truc que tu comprends pas, demande

[kiki29]

Salut, de toute façon à lire : Obliger une saisie numérique dans une TextBox, adaptable à d'autre cas de figures.