mettre des espaces dans une textbox

[bobbyboon]

Bonjour,

j'ai une textbox1 dans laquelle je veux inscrire un numero de recommandé.
j'aimerai que cela se fasse comme sur une liasse lire de recommandé et la limiter à 17 caractères (espaces inclus)
ex: 1A XXX XXX XXXX X


quand on goutte au VBA on ne s'en passe plus

D'avance merci

 

[fhoest]

Re : mettre des espaces dans une textbox

Bonjour
essaie comme ceci:

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "## ### ### #### #")
End Sub

il faut également changé la propriété de Maxlength = 17

A+

 

[job75]

Re : mettre des espaces dans une textbox

Bonsoir bobbyboon, salut fhoest,

Private Sub TextBox1_Change()
Dim t$
t = Left(Replace(TextBox1, " ", ""), 13)
t = Application.Replace(t, 13, 0, " ")
t = Application.Replace(t, 9, 0, " ")
t = Application.Replace(t, 6, 0, " ")
t = Application.Replace(t, 3, 0, " ")
TextBox1 = RTrim(t)
End Sub

A+

 

[job75]

Re : mettre des espaces dans une textbox

Bonjour le fil, le forum,

On peut faire une petite boucle :

Private Sub TextBox1_Change()
Dim t$, n
t = Left(Replace(TextBox1, " ", ""), 13)
For Each n In Array(13, 9, 6, 3)
  t = Application.Replace(t, n, , " ")
Next
TextBox1 = RTrim(t)
End Sub

Nota : j'ai oublié de préciser qu'on peut laisser la propriété MaxLength sur 0.

A+