' 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
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.:
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:
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 !!