Vérification des caractères dans une string
Bonjour,
Ne trouvant pas de réponse à mon problème, je vous soumet mon problème. Je veux valider qu'une string ne contient pas tel type de caractères (ex: .,:&? etc) ou au contraire contient seulement des chiffres, des lettres ou le caractère ;
En vba, il ne semble pas possible d'utiliser keyasccii (peut-être sous l'évènement keypress), mais de mon côté la vérification ne se déroule pas au moment de la saisie, mais plus tard lorsqu'un bouton est cliqué. Est-ce qu'il y a un moyen plus simple de code que l'exemple suivant où je dois spécifier chacun des caractères à exclure ?
Code:
1
2
3
4
5
| If InStr(Trim(T.Text22), ":") <> 0 Or InStr(Trim(T.Text22), "_") <> 0 Or InStr(Trim(T.Text22), "-") <> 0 _
Or InStr(Trim(T.Text22), " ") <> 0 Or InStr(Trim(T.Text22), ",") <> 0 Or InStr(Trim(T.Text22), ".") <> 0 Then
MsgBox "La colonne OTP contient un caractère non valide à la ligne " + Trim(Str(T.ID)), vbInformation + vbOKOnly, "Attention!"
Exit Sub
End If |
p.s. J'ai beaucoup plus de caractères à valider que dans l'exemple précédent, est-ce qu'il y a un moyen d'utliser des intervalles (ex: keyascii < 57 or keyascii = 63) sans faire référence à l'évènement keypress ?
Merci!
