Comment faire pour vérifier si une valeur est un entier ?

YourNumber : Ta variable
 
if (YourNumber isNumeric and cint(YourNumber) = YourNumber then  
 
.....
 
End if

2 hypothèses possibles
soit ta variable est de type variant => Utilise VarType(taVariable) qui renvoie le type de données sous forme de constantes vb
soit elle est de type string => Utilise IsNumeric(taVariable) qui renvoie True ou False suivant si taVariable peut-être comprise comme un nombre ou pas.
 
Tu peux aussi faire un CDbl(taVariable) et vérifier que le résultat est différent de zéro (cas de taVariable="bceh" par ex), mais ça dépend beaucoup de tes besoins.
 
A+

[edtdd]--Message édité par sylderon--[/edtdd]