remplacement de caractère dans une plage de cellules

[ghaisse]

Bonjour,
Je souhaiterais remplacer les retours chariot [CR][LF] se trouvant dans des cellules texte par un nouveau caractère de mon choix, dans chacune des cellules de ma sélection, à l'aide d'une macro.
Je travaille avec Excel 2003.
Merci d'avance de vos réponses.

[pierrejean]

bonjour ghaisse

et bienvenue sur XLD

Il existe 2 retours chariots

donc teste une des 2 versions suivantes

en supposant que tu selectionnes la plage et que le caractere de remplacement soit A

Selection = Replace(Selection, Chr(10), "A")
Selection = Replace(Selection, Chr(13), "A")

[ghaisse]

Bonjour Pierrejean et merci pour votre réponse.

Votre solution fonctionne, mais elle ne permet de ne traiter qu'une cellule à la fois.
Comment faire pour traiter une colonne entière ou des cellules non adjacentes ?

Le but final étant de remplacer ces caractères "parasites" qui mettent la pagaille dans les lignes des bases de données en les coupant de manière aléatoires.
Je souhaiterais remplacer ces retours chariots par des tildes ou des pipes qui eux sont inoffensifs.

[pierrejean]

Re

Efectivement voici je crois qui est mieux

Selection.Replace what:=Chr(10), replacement:="A"

[pierrejean]

Re

pour le tilde , il me semble que c'est:

Selection.Replace what:=Chr(10), replacement:=ChrW(732)

[ghaisse]

Bonjour Pierrejean,
Ca fonctionne très bien avec ce code.

Cependant, parfois il peut y avoir 2 chr(10) qui se suivent dans les données. De ce fait, j'ai 2 tildes après traitement.
Idéalement, je souhaiterai faire un premier traitement en remplaçant tous les chr(10), et ensuite je voudrais remplacer les doubles tildes générés par le premier traitement, par un seul tilde.
Quelle serait la syntaxe pour le code ?

[pierrejean]

Sana avoir controlé il me semble que

Selection.Replace what:=Chr(10), replacement:=ChrW(732)
Selection.Replace what:=ChrW(732) & ChrW(732), replacement:=ChrW(732)

devrait repondre a ton souhait

[ghaisse]

Super !
Je vais enfin pouvoir nettoyer mes fichiers Excel.
Merci pour aide Pierrejean.
Que dois-je faire pour indiquer que mon problème est résolu ?

[LPandre]

Que dois-je faire pour indiquer que mon problème est résolu ?

tu viens de le faire !