Effacer les lignes vides d'un txt

[magoo]

Bonjour à tous,

J'ai des centaines de texte que je dois récupèrer dans excel. Malheureusement, ils sont truffés de ligne vide. Je cherche une solution pour les supprimer.


Merci d'avance pour une solution.

Magoo (Eric)

 

[Chti160]

Salut" magoo "
je pense que tu va trouver ton bonheur en faisant une recherche via la rubrique"RECHERCHE" là haut tu tapes "Supprimer lignes vides "sujet mainte fois évoqué
si tu trouves ou ne trouves pas tu reviens sur ce fil pour nous tenir au courant
A+++
Jean Marie

 

[magoo]

Merci de ta réponse Chti160

Les lignes vides que je souhaite effacer sont dans un texte compris dans une cellule.

Je n'ai pas trouver ma solution dans les questions déjà posé. Je n'ai pas du bien formulé et je suis tombé sur ce que tu me proposes la recherche et suppresion de ligne excel.

j'ai essayé de réaliser un progamme qui suprime tout retours à la ligne suivi d'un autre retour à la ligne dans mon texte. En théorie simple mais je débute et ça plante de partout :-((

Si tu sais si ça à déjà était traité, je suis preneur.

Merci
Magoo

 

[michel]

bonsoir Magoo , bonsoir Jean-Marie


j'espere que cette macro pourra t'aider ( exemple pour la cellule A1)

Sub suppressionRetoursLignesVides()
Dim Cible As String
Do
Cible = Cells(1, 1)
Cells(1, 1) = Application.WorksheetFunction.Substitute(Cells(1, 1), vbLf & vbLf, vbLf)
Loop Until Cible = Cells(1, 1)
End Sub


bonne soirée
MichelXld

 

[magoo]

bonsoir,

Merci beaucoup michel je vais le tester maintenant.

Bonne nuit