Test de variable numérique ou non !

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

un coup de pouce serait sympa !!:king:

Merci beaucoup !!:yaisse2:

Code:

---

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

---

Code:

---

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 !!!:yaisse2:

merci quand même....:king::aie: