Tester si un nombre est entier ? [Résolu]

typhoon_74 66 Messages postés jeudi 11 mars 2004Date d'inscription 11 février 2007 Dernière intervention - 21 janv. 2006 à 09:37 - Dernière réponse : ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention
- 12 févr. 2015 à 11:18
Bonjour ,

J'ai essayé ce code dans mon programme pour tester si mon nombre était entier mais cela ne marche pas ... Le voici :

If A <> Int(A) then
Msgbox ("Veuillez entrer un nombre entier")
Exit sub
End If

Pouvez vous m'aider ?
Afficher la suite 

4 réponses

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 21 janv. 2006 à 09:43
+1
Utile
2
Essaye ceci :



If Not IsNumeric(A) Then



MsgBox ("Veuillez entrer un nombre entier")

Exit Sub



End If



If A <> CInt(A) Then



MsgBox ("Veuillez entrer un nombre entier")

Exit Sub



End If

_____________________________________________________________________
Cette réponse vous a-t-elle aidé ?  
Encore mieux :)

If A <> CInt(A) Then
A = Int(A)
End If

ce qui convertit directement le nombre en entier à la saisie :)
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 11 avril 2018 Dernière intervention - 12 févr. 2015 à 11:18
Bonjour,
un numérique toto est entier si Fix(toto) = toto

Il y a une différence importante entre Int et Fix

Preuve du piège à éviter :
 toto = -23.12
MsgBox Fix(toto) & vbCrLf & Int(toto)
typhoon_74 66 Messages postés jeudi 11 mars 2004Date d'inscription 11 février 2007 Dernière intervention - 21 janv. 2006 à 09:53
0
Utile
Merci beaucoup le premier marche très bien ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.