Discussion :

[mgrizzly]

Bonjour,
Bonjour,
J'ai 4 textbox et je voudrais mettre un msgbox lorqu'on clique sur valide et que
les valeurs rentrées dans les textbox ne sont pas numériques et un message quand les textbox sont vide.

Voilà ce que j'ai fait mais ça ne marche pas car le code attend que des valeurs textes soient rentrées dans les 4 textbox avant d'afficher le msg sur les valeurs non numériques et moi je voudrais qu'il s'affiche dès que la valeur rentrée dans le premier textbox n'est pas numérique.
Enfin, bon, code à revoir!
Merci de m'aider.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub BoutonValide_Click() ' Le bouton "Valider" a été utilisé
 
    Dim nbrestes1 As Integer, nbrestes2 As Integer, nbrestes3 As Integer, nbrestes4 As Integer, nbtrestes5 As Integer
 
    If TextBox1.Value = "" Then
        MsgBox ("Veuillez saisir une valeur dans chaque activité.")
        TextBox1.SetFocus
    Exit Sub
 
    ElseIf TextBox2.Value = "" Then
        MsgBox ("Veuillez saisir une valeur dans chaque activité.")
        TextBox2.SetFocus
    Exit Sub
 
    ElseIf TextBox3.Value = "" Then
        MsgBox ("Veuillez saisir une valeur dans chaque activité.")
        TextBox3.SetFocus
    Exit Sub
 
    ElseIf TextBox4.Value = "" Then
        MsgBox ("Veuillez saisir une valeur dans chaque activité.")
        TextBox4.SetFocus
    Exit Sub
 
    ElseIf Not IsNumeric(TextBox1.Text) Then
           MsgBox "Seules les valeurs numériques sont acceptables."
           TextBox1.Text = ""
           TextBox1.SetFocus
    Exit Sub
 
    ElseIf Not IsNumeric(TextBox2.Text) Then
           MsgBox "Seules les valeurs numériques sont acceptables."
           TextBox2.Text = ""
           TextBox2.SetFocus
    Exit Sub
 
    ElseIf Not IsNumeric(TextBox3.Text) Then
           MsgBox "Seules les valeurs numériques sont acceptables."
           TextBox3.Text = ""
           TextBox3.SetFocus
    Exit Sub
 
    ElseIf Not IsNumeric(TextBox4.Text) Then
           MsgBox "Seules les valeurs numériques sont acceptables."
           TextBox4.Text = ""
           TextBox4.SetFocus
    Exit Sub
 
 
    Else 'suite du code que je ne met pas ici

[ucfoutu]

et moi je voudrais qu'il s'affiche dès que la valeur rentrée dans le premier textbox n'est pas numérique.

Avant même de revoir ton code (on y reviendra) :
si tu veux que la vérification se fasse sans attendre que l'on clique sur un bouton, ne la fais pas par un clic sur un bouton, mais à la sortie de chaque textbox, pardi ...
Si tu ne veux pas répêter à chaque fois tout ton code, crée donc une procédure pou une fonction paramétrée (paramètres à passer : le contrôle textbox concerné) et appelle cette fonction ou procédure à chaque sortie de textbox.

[mgrizzly]

Excuse moi Ucfoutu, je voulais dire que c'est bien en cliquant sur le bouton que je veux que les conditions se vérifient. Mais dans mon code il ne prend que l'une ou l'autre des conditions et jamais les 2.

[ucfoutu]

Bien évidemment ...
Puisque tu lui dis toi-même de sortir ...


regarde ce que tu as écrit (exemple ici) :

Code :

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

1
2
3
4
If TextBox1.Value = "" Then
        MsgBox ("Veuillez saisir une valeur dans chaque activité.")
        TextBox1.SetFocus
        Exit Sub

Exit sub lui ordonne de quitter la procédure. Il quitte donc !

[mgrizzly]

Voilà j'ai trouvé comment faire après beaucoup de réflexion.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change() 
If Me.TextBox1 <> "" And Not IsNumeric(Me.TextBox1) Then 
    MsgBox "Que du numérique, svp" 
    If Len(Me.TextBox1) > 1 Then 
        Me.TextBox1.Value = Left(Me.TextBox1, Len(Me.TextBox1) - 1) 
    Else 
        Me.TextBox1.Value = "" 
    End If 
End If 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click() 
For i = 1 To 4 
    If Me.Controls("TextBox" & i) = "" Then 
        MsgBox "Veuillez remplir tous les champs" 
        Me.Controls("TextBox" & i).SetFocus 
        Exit Sub 
    End If 
Next i 
End Sub

Merci à toi Ucfoutu qui m'a montré mes erreurs!!!

[ilank]

Bonjour,

voici deux procédures :


une pour ne prendre en compte que les chiffres

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
 If KeyAscii<>8 And (KeyAscii<48 Or KeyAscii>57) Then KeyAscii=0
End sub

Une autre, pour rendre le bouton disponible que lorsque toutes les textBox sont remplies.

Pour l'exemple, j'ai bouton cmdValider et une TextBox TextBox1.

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
21
22
23
24
25
 
'Seuls les dix chiffres sont pris en compte
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
 If KeyAscii<>8 And (KeyAscii<48 Or KeyAscii>57) Then KeyAscii=0
End Sub
 
'Dès que la textbox est vide alors le bouton est indisponible et inversement
'Dès que la textbox contient quelque chose le bouton est disponible
Private Sub TexBox1_Change()
 IsSaisiComplete
End sub
 
'Vérifie que toutes les textbox sont bien remplies pour rendre
'disponible le bouton
Private sub IsSaisieComplete()
 Dim Ctrl As MSforms.Control, Completed As boolean
 Completed=True
 For Each Ctrl In Me.controls
   If TypeName(Ctrl) = "TextBox" Then
      Completed=iif(Ctrl Is Me.ActiveControl, (len(Ctrl.Text)<>0), (len(Ctrl.Value)<>0))
      If Not Completed then Exit For
   End if
 Next
 CmdValider.Enabled=Completed
End sub