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

[Invité]

Merci Marc,
je pensai m'être calé entre deux fréquences.

Comme la fréquence de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con ! (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 …