Discussion :

[triaguae]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

peut-être IsNumeric fonctionne comme Val …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[patricktoulon]

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[Marc-L]

Loïc,

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

[mercatog]

Ou en utilisant Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function IsNum(ByVal Tmp) As Boolean
 
IsNum = Application.IsNumber(Tmp)
End Function

[Marc-L]

C'est encore mieux ! 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 …

[Menhir]

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.

[Marc-L]

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 …

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é)

[Invité]

Ok vue je mérite le -1

[Marc-L]

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

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

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 …

[patricktoulon]

Bonjour a tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Un peux de sérieux patrick

[patricktoulon]

oui je deconne mais ca marche

- 1 tu es dur

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

elle me plait celle la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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