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.
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:
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