XL 2013 Supprimer des espaces particuliers dans des cellules

[océanne]

Bonsoir Excel Downloads

Je rencontre le problème suivant sur lequel je cale.
J'ai dans une colonne une grande quantité de cellules (environ 8000 en colonne D) qui contiennent des données comme ceci :

Exemple en cellule D10 :

Première ligne blablabla
___Deuxième ligne blablabla
Troisième ligne blablabla
Quatrième ligne blablabla
__Cinquième ligne blablabla

Je voudrais supprimer les espaces* dans l'exemple ici en début de deuxième et cinquième ligne, tout en maintenant les sauts de lignes des autres lignes.
bien entendu dans les autres cellules les espaces qui précèdent le texte ne sont pas positionnés sur les même lignes, mais par contre sont toujours au début.

Pour résumer, je voudrais que mon texte en cellule D10 devienne :

Première ligne blablabla
Deuxième ligne blablabla
Troisième ligne blablabla
Quatrième ligne blablabla
Cinquième ligne blablabla

Merci pour votre expertise, par formule ou macro...peu m'importe
O.

*dans l'exemple j'ai caractérisé les espaces par des _ car lorsque je publie le poste, les espaces disparaissent.

 

[mapomme]

Bonsoir @Océane,

essayez la formule:

=SUBSTITUE(SUPPRESPACE(D10);CAR(10)&" ";CAR(10))

=> Attention cette formule remplace par ailleurs toute suite d'espaces par un seul espace. Si cela ne vous convent, le dire.

 

[mapomme]

Re,

Ou bien avec une fonction personnalisée qui ne touche pas aux espaces consécutifs:

Function OterEspaceDebut(ByVal x) As String
  Do While InStr(x, vbLf & " ") > 0: x = Replace(x, vbLf & " ", vbLf): Loop
  OterEspaceDebut = x
End Function

Si vous désirez aussi ôter les espaces devant la première ligne, alors préférez:

Function OterEspaceDebut(ByVal x) As String
  Do While InStr(x, vbLf & " ") > 0: x = Replace(x, vbLf & " ", vbLf): Loop
  OterEspaceDebut = LTrim(x)
End Function

 

[riton00]

Bonsoir @Océane, mapomme

=SUBSTITUE(D10;"_";)

Slts

 

[océanne]

Merci à tous pour vos réponses rapides....MaPomme la fonction personnalisée est super
O.