Formulaire : tester si la valeur rentrée est entière

Formulaire : tester si la valeur rentrée est entière - VB/VBA/VBS - Programmation

Marsh Posté le 24-02-2008 à 19:42:25    

Bonjour,  
 
je cherche à tester si la valeur que l'utilisateur entre dans le formulaire est entière. Sinon, une MsgBox s'affiche.
En effet, par définition dans ma procédure, je dois avoir un "Integer" dans la case remplie et je veux renvoyer moi-même un message plutôt que de bloquer la macro.
 
Merci d'avance pour votre aide.

Reply

Marsh Posté le 24-02-2008 à 19:42:25   

Reply

Marsh Posté le 24-02-2008 à 20:56:21    

bonsoir,
 
Sub test()
Dim i%
On Error GoTo GESTERR
i = Range("A1" )
MsgBox "Longue suite d'opération !"
 
Exit Sub
GESTERR:
MsgBox "Beurk ! On arrête les frais..."
End Sub
 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed