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

[Aragon10]

Bonjour le Forum,

Je veux bloquer la tabulation sur le Exit si le Textbox contient des espaces.

Merci pour votre aide.

 

[Dranreb]

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

 

[Aragon10]

re bonjour,

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

 

[thebenoit59]

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

 

[phlaurent55]

Bonjour à tous,

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

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

à+
Philippe

 

[Si...]

Bon_jour


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

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

 

[Aragon10]

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