Forcer une textbox a etre remplie par un entier

[Résolu]
Signaler
Messages postés
43
Date d'inscription
samedi 8 octobre 2005
Statut
Membre
Dernière intervention
27 juin 2006
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
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.

4 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
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
Messages postés
43
Date d'inscription
samedi 8 octobre 2005
Statut
Membre
Dernière intervention
27 juin 2006

Merci, cest ce que je cherchais :)
Messages postés
43
Date d'inscription
samedi 8 octobre 2005
Statut
Membre
Dernière intervention
27 juin 2006

quel est l'equivalent de vbKeyBack mais pour une virgule ?
vbkeycoma ?
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Re,

Non c'est vbKeySnapshot

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