Discussion :

[pinot]

Bonjour,

J'ai un test dans un programme que je ne comprend pas. ça donne ça en résumé

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim x As String
Dim y As Long
 
If Not IsNumeric(x) then ERREUR
Else
     y=x
     If y<>x then ERREUR
     EndIf
EndIf

Ca peut servir à quoi cette méthode? mettre un string dans un long et regarder s'il est égale au string?

Pour l'instant je vois juste la conséquence (facheuse pour moi) que si string est plus long que 10, alors il y a une erreur d'exécution (les Long sont sur 10).

Quelqu'un a une idée de l'intéret?

[méphistopheles]

c'est vraiment laid comme code...
le long=string me fait vraiment peur... il pourrais utiliser un val au moins...

[lp38]

Ca semble etre du code pour convertir une chaine en nombre.
Si cela risque de dépasser la capacité du long, mieux vaut utiliser un autre type que long, comme un double

[pinot]

ce qui m'intéresse, c'est de savoir si on peut se retrouver avec y<>x (renommer pour que bbil m'apporte ses lumières). c'est peut etre fait au cas où il y aurait des blancs dans x.

[SfJ5Rpw8]

non c'est pas trop clair... bizarre le code ... il y as quoi dans ta variable x..? ..
à priori pour les espaces c'est pas le cas ....

peu être une histoire de test de la partie entiére de ton nombre...?

[pinot]

x a été saisie par l'utilisateur. ça peut etre n'importe quel chaine de caractère.

c'est un bout de code qui a été rajouté pour corriger un bug. le but est de controler que ce qu'on a rentré est valide (une chaine de caractère qui peut etre converti en numérique). Mais je veux savoir pourquoi IsNumeric() ne suffit pas