Si la valeur entree est un entier alors... VB6
[Résolu]
Signaler
cs_Gegeleblond
jrivet
- Messages postés
- 41
- Date d'inscription
- lundi 31 mars 2008
- Statut
- Membre
- Dernière intervention
- 2 août 2010
jrivet
- Messages postés
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
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
cs_Gegeleblond
- Messages postés
- 41
- Date d'inscription
- lundi 31 mars 2008
- Statut
- Membre
- Dernière intervention
- 2 août 2010
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
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
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
- 7393
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
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