Tester si une variable est numérique.

[Luminou]

Bonjour,
Voila je n'arrive pas trouver une facon de tester si la variable encoder dans une combobox est bien numérique.

voila mon petit morceaux de code:

Private Sub ComboBox1_Change()
Dim a As String
Dim b As Double

a = ComboBox1.Value
If ComboBox1.Value Is Nothing Then
Exit Sub
End If
If ComboBox1.Value Is numerique Then
    b = CDbl(Replace(a, ".", ","))
    Else
End If
Me.Range("H5") = b

End Sub

Il me marque une erreur "objet requit"

Merci d'avance pour vos réponse.

Lumi

 

[fifi]

Re : Tester si une variable est numérique.

salut
j'aurais plutot essayer de faire le test comme cela :

If isnumeric(ComboBox1.Value) = true Then ...


mais est-ce que toutes valeurs mises dans le combobox n'est pas automatiquement convertie en string?


++

 

[skoobi]

Re : Tester si une variable est numérique.

Bonjour,

Nothing est réservé au "objet", regarde l'aide.

If ComboBox1.Value = "" Then

et pour savoir si la variable est numérique:

If IsNumeric(ComboBox1.Value) Then

PS: oupppsss, collision, bonjour fifi