PERMETTRE DE SAISIR DANS UN TEXTBOX QUE DES CARACTÈRE SPÉCIFIÉ .
Neo.balastik
Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
-
9 juin 2004 à 22:24
galactus13 - 2 mars 2019 à 03:39
galactus13 - 2 mars 2019 à 03:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23559-permettre-de-saisir-dans-un-textbox-que-des-caractere-specifie
https://codes-sources.commentcamarche.net/source/23559-permettre-de-saisir-dans-un-textbox-que-des-caractere-specifie
Modifié le 2 mars 2019 à 03:41
J'avais autrefois une soluce qui tenait en deux lignes, mais disparu de ma tête, l'age forcément !
1 déc. 2006 à 11:10
Private Sub TextRXamat_KeyPress(KeyAscii As Integer)
Dim chaine
chaine = "0123456789" 'ou d'autre caracteres
If InStr(1, chaine, Chr(KeyAscii)) 0 And Not KeyAscii 8 Then
'KeyAscii = 8 est la touche Del
'On bloque ce qui n'est pas compris dans la variable chaine sauf
'la touche Del
MsgBox ("Erreur : chiffre uniquement"), vbExclamation
KeyAscii = 0 'On assign un KeyAscii vide à la text box
Ma_box.text ="" 'vide la box
End If
End sub
11 juin 2004 à 08:37
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim allowedKeys As String
allowedKeys = "0123456789-,." & Chr(8)
If InStr(allowedKeys, Chr(KeyAscii)) 0 Then KeyAscii 0
End Sub
cette source consiste à rechercher le caractère entré, dans une chaîne contenant tous les caractères autorisés. Si ce caractère n'est pas dans la chaîne, rien n'est affiché.
10 juin 2004 à 11:56
10 juin 2004 à 09:59
Tu peux remplacer "goto fin" par "exit for"
Plutôt d'utiliser une boucle For Next, tu peux essayer d'utiliser la
fonction InString()
10 juin 2004 à 00:12
9 juin 2004 à 22:24
Voici plus simple un utilisant la fonction IsNumeric:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
KeyAscii = 8
ElseIf IsNumeric(Chr(KeyAscii)) = False Then
KeyAscii = 0
End If
End Sub
Courage