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