Discussion :

[LANGAZOU]

Bonjour le Forum,

Je veux bloquer la tabulation sur le Exit si le Textbox contient des espaces. any help plz ?

Merci pour votre aide.

[patricktoulon]

bonjour
rien de plus simple et tu a plusieurs solutions
la plus simple dans l'évènement change tu
met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if textbox1 like"* *" then textbox1=replace(textbox1," ","")

maintenant si tu parle des espaces éventuels en début ou fin de texte tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if trim(textbox1.value)<>textbox1.value then textbox1.value=trim(textbox1.value)

et si tu veux bloquer carrément la touche espace pour ce textbox utilise l'évènement keydown et met le keycode a zéro si c'est le keycode 32(espace)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 32 Then KeyCode = 0
End Sub

[LANGAZOU]

Merci beaucoup