Comment faire pour ...

Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012
-
Messages postés
29
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
1 juin 2005
-
slt

comment empécher d'entrer une lettre ou un point dans un textbox et laisser passer que des chiffres ?

merci et bonne prog !!!

4 réponses

Messages postés
55
Date d'inscription
mardi 21 mai 2002
Statut
Membre
Dernière intervention
6 mai 2009

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then MsgBox "Veuillez renseigner un chiffre"
End Sub
Messages postés
182
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
2 octobre 2012

ok super !!!

@++
Messages postés
5
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
28 juin 2002

nab106

-------------------------------
Réponse au message :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim c$
KeyAscii = Asc(Chr(KeyAscii))
c = Chr(KeyAscii)
If Not c Like "[0-9]" And Not KeyAscii = 8 Then
KeyAscii = 0
Beep
End If
End Sub

'
Si tu veux ajouter des lettre juste remplacer
Like "[0-9]" par Like "[0-9,A-Z,a-z]"

@+
B courage
-------------------------------

slt

comment empécher d'entrer une lettre ou un point dans un textbox et laisser passer que des chiffres ?

merci et bonne prog !!!
Messages postés
29
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
1 juin 2005