Discussion :

[biboulou]

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 :

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

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

[hunteshiva]

Bonjour,

tu peux essayer avec ceci:

Code :

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

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 :

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

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

[Shadam]

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

Code :

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

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

[biboulou]

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