probleme de boite de dialogue

bonjour
j'ai fait une boite de dialogue pour controller que les personnes qui utilisent le logiciel à bien remplie avec une valeur numerique les 4 textbox (sinon ca plante ma formule de calcul)

mais probleme ca marche pas j'ai mis ca sur un boutton clic

Code:

---

1 2 3 4

'verification de la présence de données entré par l'utilisateur If TextBox1.Text = 0 And TextBox2.Text = 0 And TextBox3.Text = 0 And TextBox4.Text = 0 Then MsgBox("vous avez oublié de saisir un champs de mesure ", vbCritical, " A T T E N T I O N ") End If

---

merci

Bonjour,

tu peux essayer avec ceci:

Code:

---

1 2 3 4

If Not IsNumeric(Form1.Text1.Text) Then MsgBox "Valeur numerique obligatoire" Exit Sub End If

---

j'ai pas regardé si ça géré le fait que la textBox soit vide,
si ce n'est pas le cas, rajoute ça

Code:

---

1 2 3 4

If Not IsNumeric(Form1.Text1.Text) or (Form1.Text1.Text = Nothing) Then MsgBox "Soucis de valeur" Exit Sub End If

---

Avec l'utilisation d'un error provider, ça te permet de contrôler tous tes champs et de signaler lequel est en erreur...

Code:

---

1 2 3 4 5 6

For Each Tb As TextBox In Form1.Controls If Not IsNumeric(Tb.Text.Trim) Then ErrorProvider.SetError(Tb, "Valeur numérique obligatoire") End If Next

---

merci
de votre reponse
je test et vous tiens au jus
merci
a+