XL 2010 [RESOLU] Empêcher insertion du point-virgule dans textboxs

[cathodique]

Bonsoir,

Je voudrais empêcher l'insertion du caractère de ponctuation ( point-virgule dans quelques textboxs.
Pour illustration, dans l'userform du fichier joint les textboxs concernées sont les 1, 5 et 9.
En vous remerciant par avance.

Bonne soirée.

 

[Compte Supprimé 979]

Bonsoir Cathodique

Voici pour le TextBox1 à adapter pour les autres

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = Asc(";") Then KeyAscii = False
End Sub

A+

 

[job75]

Bonsoir cathodique, Bruno,

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, ";", "")
End Sub

Evident non ?

A+

 

[cathodique]

Bonsoir Cathodique

Voici pour le TextBox1 à adapter pour les autres

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii = Asc(";") Then KeyAscii = False
End Sub

A+

Bonsoir BrunoM45,

Tous mes remerciements. Je suis vraiment confus. Je me suis noyé dans un verre d'eau.

Bonne soirée.

 

[cathodique]

Bonsoir cathodique, Bruno,

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, ";", "")
End Sub

Evident non ?

A+

Bonsoir Job75,

Il y a des jours comme ça. Mes vieilles neurones ne répondent pas.
Merci beaucoup.

Bonne soirée.