Tester si une valeur est numérique

Bonjour

Pour tester si une valeur est numérique j'utilise ça

Code:

---

1 2 3 4 5

If IsNumeric(Sheets("Feuil1").Cells(5, 2).Value) Then Debug.Print "numerique" Else Debug.Print "pas numerique" End If

---

mais j'ai observé quelque de bizarre: si j'ai dans ma cellule 1000 2 (un espace séparant 1000 et 2), le code me renvoie "numerique" !? et je peux mettre autant d'espaces que je veux, c'est toujours numerique!!

Y a t il une explication?

merci

Bonjour

bonjour peut etre parce que il y a que des chiffres et vba l'interprète comme tel

tu pourrais essayé avec la fonction like sur la série de chiffre [0-9] avec un 2 eme sous test sur [a-z] ainsi que des caractères spéciaux
voir avec la fonction vb "instr" aussi en 2 eme sous test

Code:

---

1 2 3 4 5 6

If IsNumeric(Sheets("Feuil1").Cells(5, 2).Value) and instr (Sheets("Feuil1").Cells(5, 2).Value," ")<1 then Debug.Print "numerique" Else Debug.Print "pas numerique" End If

---

Bonjour,

peut-être IsNumeric fonctionne comme Val …

Code:

---

1 2 3

Function IsNum(Rg As Range) As Boolean IsNum = StrComp(Rg.Value2, Val(Rg.Value2), 0) = 0 End Function

---

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

joli Marc
petite fonction d'aide a la compréhension ca j'aime 8-)

Citation:

---

Envoyé par damalaan

mais j'ai observé quelque de bizarre: si j'ai dans ma cellule 1000 2 (un espace séparant 1000 et 2), le code me renvoie "numerique" !? et je peux mettre autant d'espaces que je veux, c'est toujours numerique!!

Y a t il une explication?

---

La fonction IsNumeric indique si la valeur est utilisable comme une numérique, ce qui est le cas avec l'exemple que tu donnes, malgré l'espace.
Fais le test :

Code:

---

1 2 3 4 5

Sub Test() Dim Y as Integer Y = Sheets("Feuil1").Cells(5, 2) Debug.Print Y End Sub

---

Tu verras que Y récupère la valeur numérique utilisable comme tel.

Si, dans ton cas, c'est l'espace qui te gêne, il vaudrait peut-être mieux que tu utilises une fonction qui vérifie la présence d'espace. Par exemple :

Code:

---

InStr(Sheets("Feuil1").Cells(5, 2)," ")

---

Bonjour menhir
cela a déjà été dit en POST#2

Loïc,

pas besoin de chercher forcément la présence d'une espace, teste la fonction du post #3 !

Ou en utilisant Excel

Code:

---

1 2 3 4

Function IsNum(ByVal Tmp) As Boolean   IsNum = Application.IsNumber(Tmp) End Function

---

C'est encore mieux ! :plusser: Comme quoi il faut d'abord penser Excel avant VBA !

Il s'agit de la fonction de feuille de calculs ESTNUM dans la version française d'Excel …

Citation:

---

Envoyé par Marc-L

pas besoin de chercher forcément la présence d'une espace, teste la fonction du post #3

---

Tu as raison. Je n'avais pas regardé ta solution en détail mais c'est vrai qu'elle est très élégante. :ccool:

Merci mais c'est Mercatog qui monte sur la première marche du podium !

Mais j'ai le mérite de vous faire méfier aussi de la fonction Val …

Code:

---

1 2 3 4 5

If IsNumeric(Trim("" & Sheets("Feuil1").Cells(5, 2).Value)) Then Debug.Print "numerique" Else Debug.Print "pas numerique" End If

---

:plusser::yaisse3::fessee:

Citation:

---

Envoyé par rdurupt

:plusser::yaisse3::fessee:

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub LePourquoi()   Sheets("Feuil1").Cells(5, 2).Value = "1000 2" If IsNumeric(Trim("" & Sheets("Feuil1").Cells(5, 2).Value)) Then Debug.Print Sheets("Feuil1").Cells(5, 2).Value & " est numerique" Else Debug.Print Sheets("Feuil1").Cells(5, 2).Value & " n'est pas numerique" End If End Sub

---

PS. Je n'ai pas encore voté ni + ni - car je suis certain que c'est une coquille d'appréciation (lequel de nous est épargné)

Ok vue je mérite le -1

J'ai voté :plusser: pour compenser le :moinsser: sans aucune explication …

C'est vrai qu'un Replace aurait été plus judicieux que le Trim ! 8-)

Et puis sachant Robert se prenant la tête dans d'autres discussions n'en finissant pas, pour une fois que c'était simple !
J'en ai fait une belle hier aussi …

Bonjour a tous

Code:

---

1 2 3 4 5 6 7 8 9

Sub LePourquoi_parce_que() Sheets("Feuil1").Cells(5, 2).Value = "1000 2" if len(replace(Sheets("Feuil1").Cells(5, 2).Value)," ","")=len(Sheets("Feuil1").Cells(5, 2).Value )Then Debug.Print Sheets("Feuil1").Cells(5, 2).Value & " est numerique" Else Debug.Print Sheets("Feuil1").Cells(5, 2).Value & " n'est pas numerique" End If End Sub

---

:ptdr::ptdr:

Un peux de sérieux patrick

oui je deconne mais ca marche

- 1 tu es dur :mrgreen:

ne pourrait-on pas faire avec la fonction de marc?

elle me plait celle la

Code:

---

1 2 3 4 5 6 7 8

Sub test() Debug.Print IsNum(Cells(5, 2)) End Sub   Function IsNum(Rg As Range) As Variant IsNum = IIf(StrComp(Rg.Value2, Val(Rg.Value2), 0) = 0, "numerique", "pas numerique") End Function

---

Le -1 est mérité puisque tu cherches à voir que c'est du numérique ou bien ne contient pas d'espace. "Patricktoulon" est pour ton code sera considéré numérique puisqu'il ne contient pas d'espace. N'en parlons pas des parenthèses à replacer

D'autant plus qu'on peut induire autrui en erreur.

Pour moi, ta dernière intervention et loin d'être sérieuse. Voilà.

Dans l'attente que Marc vienne compenser le vote vu son grand cœur ;)