Caractère de trop dans TextBox

fhoest

XLDnaute Accro

• 28 Février 2011

• #2

Re : Caractère de trop dans TextBox

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Février 2011

• #3

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

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 28 Février 2011

• #4

Re : Caractère de trop dans TextBox

Bonjour Claude,

Tu pourrais adapter la formule suivante :

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

A +
🙂

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Février 2011

• #5

Re : Caractère de trop dans TextBox

Merci jaimes je cherchais + en VBA

Temjeh

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 28 Février 2011

• #6

Re : Caractère de trop dans TextBox

Re,

Tu peux tester le code suivant :

VB:

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

A +
🙂

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Février 2011

• #7

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Février 2011

• #8

Re : Caractère de trop dans TextBox

Bonjour le fil
Peut-être comme ceci

Code:

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2011

• #9

Re : Caractère de trop dans TextBox

Bonjour tous,

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

A+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Février 2011

• #10

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2011

• #11

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+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Février 2011

• #12

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

 

Vote positif 0 Vote négatif