R
Robby
Guest
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
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
