Caractère de trop dans TextBox

[Temjeh]

Bonjour et merci

J'ai une petite boucle qui divise la valeur de 1 textbox (résultat d'un coller qui me mest les données en 4 lignes) en 4 textbox.

MonArray = Array(1, 2, 3, 4)
On Error Resume Next
For k = 3 To 6
UserForm1.Controls("Textbox" & (k)) = Split(TextBox1.Text, Chr(10))(MonArray(k - 3) - 1)
If Err > 0 Then Err.Clear: Exit For
Next k

Le prob et que j'obtient un chr(10) je pense a la fin (touche ENTER) voir image

Comment l'enlever ou ne pas le mettre en modifiant ma boucle?

Merci

Temjeh

 

[fhoest]

Re : Caractère de trop dans TextBox

Bonjour ,
Textbox1.text=left(textbox1.text,len(textbox1.text))
A+

 

[Temjeh]

Re : Caractère de trop dans TextBox

Merci mais ca ne fonctionne pas
J'avais aussi fait une genre de formule comme ca avec left et nbcar -1 mais sans résultat.

Revoici la tienne:

UserForm1.Controls("Textbox" & (k)) = Left(UserForm1.Controls("Textbox" & (k)).Text, Len(UserForm1.Controls("Textbox" & (k)).Text))

A++

Claude

 

[James007]

Re : Caractère de trop dans TextBox

Bonjour Claude,

Tu pourrais adapter la formule suivante :

=SUBSTITUTE(A1,CHAR(160)," ")

A +
🙂

 

[Temjeh]

Re : Caractère de trop dans TextBox

Merci jaimes je cherchais + en VBA

Temjeh

 

[James007]

Re : Caractère de trop dans TextBox

Re,

Tu peux tester le code suivant :

Selection.Replace What:=Chr(160), Replacement:=Chr(32), _
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

A +
🙂

 

[Temjeh]

Re : Caractère de trop dans TextBox

Bonjour

Peut-être que l'applique mal.

UserForm1.Controls("Textbox" & (k)).Replace What:=Chr(160), Replacement:=Chr(32), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

...pas bon

Temjeh

 

[kjin]

Re : Caractère de trop dans TextBox

Bonjour le fil
Peut-être comme ceci

If TextBox1 = "" Then Exit Sub
T = Split(TextBox1, Chr(10))
For i = 0 To UBound(T)
    If i > 3 Then Exit For
    Controls("TextBox" & i + 3) = Replace(T(i), Chr(13), "")
Next

A+
kjin

 

[Guest]

Re : Caractère de trop dans TextBox

Bonjour tous,

TextBox1=Replace(Textbox1, Chr(160),"")

A+

 

[Temjeh]

Re : Caractère de trop dans TextBox

Merci

Désolé il semble que c'est la bonne facon de l'écrire mais il ne l'enlève

UserForm1.Controls("Textbox" & (k)) = Replace(UserForm1.Controls("Textbox" & (k)), Chr(160), "")

Temjeh

 

[Guest]

Re : Caractère de trop dans TextBox

Re, bonjour,

Au bout de 10 post tu ne penses pas qu'il est temps de nous donner ici, un fichier exemple reproduisant ton problème? On peut tourner en rond longtemps sinon.

Je ne comprends pas comment on est passé de Chr(10) à chr(160) dans ce fil.

A+

 

[Temjeh]

Re : Caractère de trop dans TextBox

Oui merci
Effectivement j'aurais du mettre un demo mais j'allais partir faute de temps...

Merci à tous j'opte pour celle de kjin qui m'a refait la formule

Merci

Temjeh