supprimer le caractere "13"

[ericTA]

Bonjour à tous,
voila j'ai un texte avec des Chr(13) retour à la ligne, et je ne trouve pas comment les rétirer

Libelle.Value = Replace(Libelle.Value, Chr(13), "")

ca ne marche pas
y a t il un autre moyen.
Merci d'avance
Eric

 

[Ubot303]

Re : supprimer le caractere "13"

Bonjour,

Un bout de fichier peut-être?
Tu as des chr(13) écris ou tu vois des retours à la ligne dans tes cellules?
Si les chr(13) sont écrits, tu peux faire une edition -> remplacer Chr(13) par "".
Sinon tu vois des retours à la ligne, il faut passer par une macro (je pense) qui va scanner tes cellules, scanner le texte caractère par caractère et supprimer le retour à la ligne...

 

[tototiti2008]

Re : supprimer le caractere "13"

Bonjour ericTA,

et comme ça ?

Libelle.Text = Replace(Libelle.Text, Chr(13), "")

sinon, attention, il y a les Chr(13) et les Chr(10), ce n'est pas tout à fait la même chose

 

[ericTA]

Re : supprimer le caractere "13"

voici la même demande avec un fichier

 

[tototiti2008]

Re : supprimer le caractere "13"

Re,

un truc comme ça ?

Private Sub BoutonOK_Click()
    Range("B" + CStr(ActiveCell.Row())).Value = Replace(Libelle.Text, Chr(13), "")
    Unload Me
End Sub

 

[david84]

Re : supprimer le caractere "13"

Bonjour à tous,
il me semble que tu as les 2 caractères.
=SUBSTITUE(B15;CAR(13)&CAR(10);" ")
te supprime les 2 remplace par un espace.
A+