High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Visual Basic
Sujet Précédent
Sujet Suivant
Tester si un nombre est entier ?
Résolu
typhoon_74
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007
- 21 janv. 2006 à 09:37
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
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
A voir également:
Tester si un nombre est entier python
Vba entier
- Meilleures réponses
Entier vba
- Meilleures réponses
Modulo pour tester si entier divisible par un chiffre
✓
-
Forum - PHP
Tester si un nombre reel est entier
✓
-
Forum - Delphi / Pascal
Python tester si un nombre est entier
-
Forum - C# / .NET
Déterminer si un nombre est un entier
-
Forum - C# / .NET
Savoir si un nombre est entier
-
Forum - C / C++ / C++.NET
2
réponses
Réponse 1 / 2
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
131
21 janv. 2006 à 09:43
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
_____________________________________________________________________
adakhum
12 févr. 2015 à 09:44
Encore mieux :)
If A <> CInt(A) Then
A = Int(A)
End If
ce qui convertit directement le nombre en entier à la saisie :)
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Modifié par ucfoutu le 12/02/2015 à 11:25
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)
Réponse 2 / 2
typhoon_74
Messages postés
66
Date d'inscription
jeudi 11 mars 2004
Statut
Membre
Dernière intervention
11 février 2007
21 janv. 2006 à 09:53
Merci beaucoup le premier marche très bien ;)
sur les mêmes thèmes
savoir si un nombre est entier
Compteurs de voyelles
inverser les chiffre d'un entier
nombre de diviseurs d'un nombre entiers [URGENT]
Arrondir un chiffre a l'entier superieur??
Arrondi entier Superieur
A voir également
Savoir si un nombre est entier
Tester si un nombre est un float ou pas
Python : Algorithme de kaprekar - CodeS SourceS
Python : Conversion d'un nombre en toutes lettres - CodeS SourceS
Python : Nombres de kaprekar - CodeS SourceS
12 févr. 2015 à 09:44
If A <> CInt(A) Then
A = Int(A)
End If
ce qui convertit directement le nombre en entier à la saisie :)
Modifié par ucfoutu le 12/02/2015 à 11:25
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 :