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

cathodique · 18 Novembre 2021

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 · 18 Novembre 2021

Bonsoir Cathodique

Voici pour le TextBox1 à adapter pour les autres

VB:

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

A+

Compte Supprimé 979 · 18 Novembre 2021

Bonsoir Cathodique

Voici pour le TextBox1 à adapter pour les autres

VB:

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

A+

job75 · 18 Novembre 2021

Bonsoir cathodique, Bruno,

VB:

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

Evident non ?

A+

cathodique · 18 Novembre 2021

BrunoM45 à dit:
Bonsoir Cathodique

Voici pour le TextBox1 à adapter pour les autres

VB:

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 · 18 Novembre 2021

job75 à dit:
Bonsoir cathodique, Bruno,

VB:

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.

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

cathodique

XLDnaute Barbatruc

Pièces jointes

Compte Supprimé 979

Compte Supprimé 979

Guest

job75

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

Discussions similaires