Forcer une textbox a etre remplie par un entier [Résolu]

Messages postés
43
Date d'inscription
samedi 8 octobre 2005
Dernière intervention
27 juin 2006
- - Dernière réponse : jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 16 juin 2006 à 15:48
Bonjour a tous,je cherche simplement a savoir comment forcer un utilisateur a mettre un entier dans une textbox,et non pas du text ou autre chose.

Cela doit etre qqchose du genre
if text1 <> integer then
" hop hop hop ! "
end if

mais je connais pas le truc exacte ?

Merci de votre aide.
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
47
3
Merci
Salut,
Ta feuille contient un textbox appelé Text1
Private Sub Text1_KeyPress(KeyAscii As Integer) 
'Mise a part le suppr, le point et le backspace
If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete Then 
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 
End If 
End Sub 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 90 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
43
Date d'inscription
samedi 8 octobre 2005
Dernière intervention
27 juin 2006
0
Merci
Merci, cest ce que je cherchais :)
Commenter la réponse de da_chocapic
Messages postés
43
Date d'inscription
samedi 8 octobre 2005
Dernière intervention
27 juin 2006
0
Merci
quel est l'equivalent de vbKeyBack mais pour une virgule ?
vbkeycoma ?
Commenter la réponse de da_chocapic
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
47
0
Merci
Re,

Non c'est vbKeySnapshot

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Commenter la réponse de jrivet

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.