Limiter saisie à Liste

Réponse acceptée !
il faut intercépter l'évènement KeyPress

exmp empêche la saisie de a, b ou c


Private Sub Text1_KeyPress(KeyAscii As Integer)
    If     If (InStr(1, "abc", Chr(KeyAscii)) <> 0) Then
        KeyAscii = 0
    End If
End Sub

Réponse acceptée !
If (InStrB("abc", Chr$(KeyAscii)) = 0) And KeyAscii <> 8 And KeyAscii <> 3 And KeyAscii <> 24 And KeyAscii <> 22 Then
        KeyAscii = 0
End If

8 => touche BackSpace, sinon, on ne peut pas supprimer de caractère
3 / 24 / 22 => Presse papier. à noter que le presse papier n'est pas ici vérifié, et pourrais contenir des caractères 'interdits'

à noter également que a, b et c sont autorisés, mais pas A, B ou C
pour ce faire,

InStrB("abc", Chr$(KeyAscii),Compare:=vbTextCompare)
ou
InStrB("abcABC", Chr$(KeyAscii))

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic