J
Jeanvoil
Guest
Bonjour,
Je souhaite tester si la saisie d'un champ de formulaire est bien un Integer ..
Merci ..
Je souhaite tester si la saisie d'un champ de formulaire est bien un Integer ..
Merci ..
' 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
' 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
If TaValeur < -32768 and TaValeur > 32768 then