Blocage saisie caractères spéciaux Textbox

[RONIBO]

Bonsoir le forum,

J'aimerais bloquer la saisie des caractères spéciaux (? % ; § ! ( ) etc. ) dans un textbox,

J'aimerais tout de même conserver ceci

Private Sub TNom_Change()
If Me.TNom.BackColor = vbRed Then Me.TNom.BackColor = vbWhite
TNom = UCase(TNom)
End Sub

Merci d'avance 🙂

Bonne soirée 🙂

 

[david84]

Re : Blocage saisie caractères spéciaux Textbox

Bonsoir,
à tester :

Private Sub TNom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("?%;§!()", Chr(KeyAscii)) > 0 Then KeyAscii = 0: Beep
End Sub

A+

 

[RONIBO]

Re : Blocage saisie caractères spéciaux Textbox

Bonjour,

Merci pour ta réponse 🙂

Par contre j'aimerais pouvoir garder l'ancien macro pour mettre le textbox en majuscule, j'ai essayé ca :

Private Sub TNom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Me.TNom.BackColor = vbRed Then Me.TNom.BackColor = vbWhite
TNom = UCase(TNom)
If InStr(",?%;§!()", Chr(KeyAscii)) > 0 Then KeyAscii = 0: Beep
End Sub

La dernière lettre il me la met en minuscule

Vous avez une solution à ca?

A+

 

[david84]

Re : Blocage saisie caractères spéciaux Textbox

Bonjour,

Merci pour ta réponse 🙂

Par contre j'aimerais pouvoir garder l'ancien macro pour mettre le textbox en majuscule, j'ai essayé ca :



La dernière lettre il me la met en minuscule

Vous avez une solution à ca?

A+

Le reste doit être laissé dans l'événement Change
A+