Supprimer les renvoies chariots inutiles dans la même cellule

Bonjour,

j'ai récupéré un base de donnée excel d'une association et une colonne est rempli de cellules avec des renvoies chariots inutiles ..

J'ai fait une boucle qui parcours cellule par cellule pour y mettre de l'ordre...

Il me reste une correction à réalisé et pas des moindre l'ancienne secrétaire est fan des renvoies de chariot le fameux Alt+entrée ou plus communément le Chr(10).

J'arrive à supprimer deux renvoies de chariots qui se suivent :

Cels.Offset(0, 8) = Replace(Cels.Offset(0, 8), Chr(10) & Chr(10), Chr(10))

Mais quand le renvoie de chariot dans cette même cellule est seul sans texte ça se complique et je voudrais pas supprimer les renvoies de chariot de saisie non vides:

Chr(10) ' a supprimer
15/03/2016 : cour de badminton Ce1 Chr(10) ' on garde
17/04/2016 : Initiation de foot en salle Chr(10) ' on garde
Chr(10) ' a supprimer
Chr(10) ' a supprimer
03/05/2016 : Match de Basket Cm1 vs Cm2 Chr(10) ' on garde
Chr(10) ' a supprimer

Si vous avez une solution, je suis preneur parce que là je cale ...

Merci d'avance ! Prenez soin de vous...

Bonjour,

sélectionner la plage de cellules, et décocher la case "Renvoyer à la ligne automatiquement" au menu, Alignement

Bonjour,

je veux quand même garder les renvoies de chariots utiles, tout collé ça m’intéresse pas :

15/03/2016 : cour de badminton Ce117/04/2016 : Initiation de foot en salle

:/

Bonjour,

Essaie cette fonction personnalisée :

Public Function CleanString(txt As String) As String
    CleanString = VBA.Replace(txt, Chr(10) & Chr(10), Chr(10))
    If Left(CleanString, 1) = Chr(10) Then CleanString = VBA.Mid(CleanString, 2, Len(CleanString))
End Function

Merci, Eric c'est Nickel !