Si c'est du numérique, sinon ...

Bonjour,
Je cherche à savoir si la valeur que je manipule est du numérique ou ne l'est pas.

Car, je peux renseigner dans mon tableau soit du numérique soit du texte.
Mais quand c'est du numérique, il faut que je fasse une manipulation de math.

Par exemple :

Sub Test
'Var1 la variable changeante, numérique ou texte
Var1 = Range("A1").value
If Var1 est numérique then
Var1 = Var1 + 10
Range("A1").value = Var1
End If
End Sub


Pour l'instant ma solution est de décomposer ma Var1.
Je teste tous les charactères les 1 après les autres.
cela donne:
If range("A1").value <> "" then
A = Len(Var1)
For x=1 to A
If Mid(Var1,x,A)=1 or Mid(Var1,x,1)=2 or .... then
Var2 = "Numerique"
else: Var2="Txt"
exit For
End If
Next x

If Var2="Numerique" then Var1=Var1+10
Range("A1").value=Var1

je suis sure qu'il exsite quelque chose de plus pro que ça ... 🙄


Merci pour vous futurs réponses.

Salutations !
Robby