Supprimer des sauts de lignes dans une cellule

[océanne]

Bonsoir le forum

J'ai un petit souci que je ne parviens pas à résoudre et pourtant j'ai navigué pas mal sans trouver ma solution.

J'ai dans de très nombreuses cellules du texte avec des sauts de lignes, que je voudrais conserver tout en supprimant les sauts de ligne intermédiaires à blanc....exemple

En cellule A1 j'ai :
Pierre

Jacques

Sophie

Je voudrai avoir :
Pierre
Jacques
Sophie

de façon à ce que les sauts de ligne intermédiaires qui ne me servent à rien disparaissent.

J'ai essayé en utilisant par le menu "Remplacer" ALT+0013 ou encore CTRL+J, les sauts de lignes sont supprimés, mais malheureusement tous le sont et je me trouve avec ce résultat : PierreJacquesSophie...qui ne me convient pas.
Par macro, j'ai testé également Replace Chr(10), Chr(13), VbCrLf ou encore VbCr et même VbLf, sans plus de succès.

Du coup je me retourne vers vous et votre science des formules et du script.

D'avance Merci

Océanne

 

[Chris24]

Re : Supprimer des sauts de lignes dans une cellule

Bonsoir

et cette solution ?

Sub test

Sheets("feuil1").UsedRange.Replace vbLf & vbLf, vbLf, xlPart

End Sub


Cordialement

 

[océanne]

Re : Supprimer des sauts de lignes dans une cellule

Merci Chris24, ça marche du tonnerre !

Bonne soirée à tout le forum

Océanne