supprimer le caractere "13"

U

Ubot303

XLDnaute Occasionnel

• 12 Mai 2010

• #2

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...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #3

Re : supprimer le caractere "13"

Bonjour ericTA,

et comme ça ?

Code:

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

 

Vote positif 0 Vote négatif

E

ericTA

XLDnaute Occasionnel

• 12 Mai 2010

• #4

Re : supprimer le caractere "13"

voici la même demande avec un fichier

 

Pièces jointes

• Supp carré.xls

  32 KB · Affichages: 46

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #5

Re : supprimer le caractere "13"

Re,

un truc comme ça ?

Code:

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 12 Mai 2010

• #6

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+

 

Vote positif 0 Vote négatif