XL 2010 Empêcher l'insertion des espaces dans un textboxEmpêcher l'insertion des espaces dans un textbox

Dranreb

XLDnaute Barbatruc

• 19 Octobre 2017

• #2

Bonjour
Pourquoi ne pas annuler plutôt leur saisie dans une _KeyPress ?

 

Vote positif 0 Vote négatif

A

Aragon10

XLDnaute Occasionnel

• 19 Octobre 2017

• #3

re bonjour,

Et si on fait du copier coller dans ce textbox et on tabule rien n’empêchera ces espaces..

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 19 Octobre 2017

• #4

Tu peux ajouter une fonction pour supprimer les espaces lors de l'évènement AfterUpdate.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Octobre 2017

• #5

Bonjour à tous,

ce code empêche la saisie et/ou l'ajout d'un espace dans un TextBox

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then KeyAscii = 0
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 19 Octobre 2017

• #6

Bon_jour


Pourquoi sur le Exit ? Et avec Change (surtout en Copier/Coller un texte extérieur) ?

Code:

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

 

Vote positif 0 Vote négatif

A

Aragon10

XLDnaute Occasionnel

• 20 Octobre 2017

• #7

Je vous remercie pour vos conseils qui m'ont été très précieux.

 

Vote positif 0 Vote négatif