Si la valeur entree est un entier alors... VB6 [Résolu]

Messages postés
41
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
2 août 2010
- - Dernière réponse : jrivet
Messages postés
7401
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 

4 réponses

Meilleure réponse
Messages postés
41
Date d'inscription
lundi 31 mars 2008
Statut
Membre
Dernière intervention
2 août 2010
3
Merci
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 !!!

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 124 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Gegeleblond
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
28
0
Merci
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
Commenter la réponse de cs_casy
Messages postés
562
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010
0
Merci
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
Commenter la réponse de cs_yvesyves
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
43
0
Merci
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
Commenter la réponse de jrivet