tester si valeur = Integer

[Jeanvoil]

Bonjour,

Je souhaite tester si la saisie d'un champ de formulaire est bien un Integer ..

Merci ..

 

[CelineG]

Bonjour !

essaie : if TaValeur isnumeric then

 

[Hellboy]

Bonjour a vous deux

Je donne ceci comme complément:

' Integer 2 octets  et est compris entre -32 768 à 32 767
If IsNumeric(Target) = True And InStr(1, Target, '.') = False Then
    Select Case Target
            Case Is < -32768, Is > 32768
                 'pas Integer
    End Select
Else
    'Pas Integer

 

[CelineG]

ok merci mais peu tu expliquer à quoi sert ton select case, stp?

c pas le tout de donner du code !

 

[Hellboy]

Bonjour CelineG

C pas tout de dire stp, bonjour aussi ca fait chaud au coeur. 😉

C'est difficile de savoir ce que les gens connaisent et sont a l'aise. En passant j'ai oublié de une ligne ds mon code.:

' Integer 2 octets  et est compris entre -32 768 à 32 767
If IsNumeric(TaValeur) = True And InStr(1, TaValeur, '.') = False Then
    Select Case TaValeur
            Case Is < -32768, Is > 32768
                 'pas Integer
    End Select
Else
    'Pas Integer
End If

Bon mainteant, pour le Select case, c'est comme un if mais exprimé d'une autre façon. Comme tu l'avais suggéré, le IF IsNumeric(TaValeur) sert d'abord a déterminer si c'est bien un nombre. Ensuite dans le if j'ai rajouté une recherche d'un point '.', au cas si il y aurait une décimale. Maintenant, le case entre en jeux après pour voir si la valeur n'est pas comprise entre -32 768 à 32 767(requis pour etre un integer). J'aurais pu marquer avec un if comme suit:

If TaValeur < -32768 and TaValeur > 32768 then

J'espere que j'ai été un peu plus clair. 😱

 

[CelineG]

Bonjour (et excuse moi)

Ok j'ai compris en faite que ce que j'avais mis n'était pas suffisant : isNumeric ne détermine pas si la valeur est un entier mais un nombre et donc toi tu donne le code en entier pour aller petit à petit du nombre vers l'entier !!

Merci bien!

 

[Hellboy]

re Bonjour CelineG

Pas de mal, et je suis content d'avoir pu aider.

Et bienvenu !