Si la valeur entree est un entier alors... VB6Résolu

Question

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

cs_Gegeleblond · Accepted Answer

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 !!!

cs_casy · Answer

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

cs_yvesyves · Answer

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

jrivet · Answer

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

Si la valeur entree est un entier alors... VB6

4 réponses

Votre réponse