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