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
Visual Basic 6
Sujet Précédent
Sujet Suivant
Si la valeur entree est un entier alors... VB6
Résolu
cs_Gegeleblond
Messages postés
41
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
2 août 2010
- 11 avril 2008 à 21:10
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
14 avril 2008 à 08:26
Bonjour,
Je souhaite avoir comme condition :
If Text1.text "est un entier" Then
....
End if
J ai tente des trucs mais en vain...
Si quelqu un sait faire, ce serait merveilleux !
Merci d avance
Afficher la suite
A voir également:
Si la valeur entree est un entier alors... VB6
C / C++ / C++.NET : Valeur absolue d'un entier ou d'une décimale.
- Guide
Valeur entrée manuellement non prise en compte
✓
-
Forum - Visual Basic
Textbox qui va à la ligne de la valeur entrée
✓
-
Forum - Visual Basic 6
Récupérer une valeur entrée dans un InputBox
✓
-
Forum - Visual Basic 6
Creer une dll : exemple qui inverse deux valeurs de type entier
-
Codes sources - C / C++ / C++.NET (Application)
4
réponses
Réponse 1 / 4
cs_Gegeleblond
Messages postés
41
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
2 août 2010
11 avril 2008 à 22:00
Ah ben en fait j ai soudainement une idee, j ai qu a utiliser la fonction Round qui retourne l arrondi.
If Round(Text1.Text) - Text1.Text =0 Then
....
End if
Et ca marche !!!
Réponse 2 / 4
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
11 avril 2008 à 21:45
regarde du coté de IsNumeric peut-etre
---- Sevyc64 (alias Casy) ----
<hr size="2" width="100%" />
# LE PARTAGE EST NOTRE FORCE #
http://aide-office-vba.monforum.com/index.php
Réponse 3 / 4
cs_yvesyves
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010
11 avril 2008 à 22:15
Tout en restant dans ton principe, un code un peu plus propre et plus respectueux :
If IsNumeric(Text1.Text) Then
Dim Valeur as Integer
Valeur = Val(Text1.Text)
If Valeur - Int(Valeur) = 0 then Return True else Return False
End if
Réponse 4 / 4
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
14 avril 2008 à 08:26
Salut,
Ou bien on essaie tout simplement de mettre le contenu de Text1.text dans une variable de type integer, tout en captant l'erreur.
Si pas erreur => entier.
Si erreur pas entier
@+:
Ju£i?n
Pensez: Réponse acceptée
Votre réponse
A voir également
Creer une dll : exemple qui inverse deux valeurs de type entier
Contrôler une valeur d'entrée de formulaire
Importer valeur entier d'un jframe vers un autre
Comment savoir si la valeur Text correspond à une entrée dans la liste d'un Comb
Msgbox avec une valeur en entrée