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 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 14 avril 2008 à 08:26
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 14 avril 2008 à 08:26
A voir également:
- Si la valeur entree est un entier alors... VB6
- Valeur absolue c ✓ - Forum Visual Basic 6
- Arrondir à l'entier supérieur python ✓ - Forum Flash
- Tester si un nombre est entier python ✓ - Forum Delphi / Pascal
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Tester si un nombre est entier ? ✓ - Forum Visual Basic
4 réponses
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
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 !!!
If Round(Text1.Text) - Text1.Text =0 Then
....
End if
Et ca marche !!!
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
11 avril 2008 à 21:45
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
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
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
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
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
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
14 avril 2008 à 08:26
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
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
