Discussion :

[perchman]

voilà, je cherche à tester si la valeur entrée dans la Textbox est numérique ou non !! mais mon code ne marche pas !! (normal)

un coup de pouce serait sympa !!

Merci beaucoup !!

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TB_tel_1_Change()
    Dim testVar As Object
    Dim numericCheck As Boolean
    testVar = TB_tel_1.Text
    numericCheck = IsNumeric(testVar)
    While (numericCheck = False)
        MsgBox ("entrer un nombre")
        TB_tel_1.Text = ""
    Wend
End Sub

[perchman]

Code :

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

1
2
3
4
If TB_tel_2.Value = "" Or (Not (IsNumeric(TB_tel_2.Text))) Then
     MsgBox (" N° de téléphone non valide ! ")
     Call effacer_telephone
End If

ça, c'est la solution !!!

merci quand même....