Microsoft 365 Comment remplacer des espaces en trop par un retour à la ligne ? (avec une formule)

[Automatik]

Bonjour tout le monde,

Je fais de nouveau appel à vous car j'ai un problème.

J'ai des cellules dans lesquelles il y a de nombreux espaces entre des mots.
Cela a été fait parce que la personne ne savait pas faire de retour à la ligne.
Sauf que moi quand je récupère ces cellules évidemment ça me remet tous les espaces, et comme mes cellules ne font pas la même taille je suis obligé de les supprimer moi-même et de remplacer par un retour à la ligne ?

J'ai essayé avec: SUPPRESPACE et CAR(10) mais je n'arrive pas à les mettre en lien...

Quelqu'un connaîtrait-il la solution ?

Alban

 

[vgendron]

Hello

la difficulté que je vois, est que le nombre d'espaces entre les mots n'est pas forcément le meme..?
un test en PJ pour supprimer ces espaces parasites

 

[Hasco]

Bonjour,

Ce qui devrait être automatique @Automatik c'est de joindre un fichier exemple.
Vous pouvez tentez la fonction Epurage
Tenter Car(160) 'espace insécable'

 

[fanch55]

Salut,

=SUBSTITUE(A1;" ";CAR(10))

 

[sylvanu]

Bonjour,
Essayez ça pour voir :

=SUBSTITUE(A1;"  ";" ")

Cela remplace le double espace par un seul espace. Ne touche pas aux espaces uniques.
Et utilisez Format de cellule/Alignement/Renvoyez à la ligne.

 

[Lolote83]

Bonjour à tous,
Effectivement sans fichier joint, c'est difficile d'imaginer le truc.
Du coup, je suis parti avec simplement plusieurs espaces séparant 2 mots
Exemple : TOTO TITI
et j'en ai sorti cette formule de ma petite tête, mais quelle formule !!!!!
En A1= TOTO TITI et la formule en B1=GAUCHE(A1;TROUVE(" ";A1;1)-1) & CAR(10) & STXT(A1;TROUVE(" ";A1;1)+NBCAR(A1)-NBCAR(SUBSTITUE(A1;" "; ""));10)
@+ Lolote83

 

[fanch55]

S'il peut y avoir plusieurs espaces consécutifs :
=SUBSTITUE(SUPPRESPACE(A1);" ";CAR(10))

 

[Automatik]

Hello

la difficulté que je vois, est que le nombre d'espaces entre les mots n'est pas forcément le meme..?
un test en PJ pour supprimer ces espaces parasites

Bonjour,
Merci de ta réponse, je ne souhaite pas faire une macro, j'aimerais juste une formule (si elle existe).
Il faudrait que les espaces soient remplacés par un retour à la ligne.
Je te mets un exemple (j'ai oublié de le mettre avant, grave erreur de ma part, sorry..)

 

[Automatik]

Bonjour,

Ce qui devrait être automatique @Automatik c'est de joindre un fichier exemple.
Vous pouvez tentez la fonction Epurage
Tenter Car(160) 'espace insécable'

Bonjour,

Merci pour ta réponse et désolé pour l'exemple, je te le met là ..

 

[Automatik]

Salut,

=SUBSTITUE(A1;" ";CAR(10))

Salut,
Merci pour ta réponse c'est quasiment ça, mais le problème c'est que je ne connais pas le nombre d'espace qu'il y a en trop. Je te mets l'exemple, ça sera plus clair, je ne veux pas remplacer tous les espaces, mais juste quand il y en a plein j'aimerais que ça devienne un retour à la ligne

 

[Automatik]

Bonjour,
Essayez ça pour voir :

=SUBSTITUE(A1;"  ";" ")

Cela remplace le double espace par un seul espace. Ne touche pas aux espaces uniques.
Et utilisez Format de cellule/Alignement/Renvoyez à la ligne.

Salut,
Merci pour ta réponse, c'est presque ça mais je n'ai pas que des doubles espaces, parfois il y a 20 espaces d'affilée.. Je te met l'exemple, ça explique mieux mon problème je pense.

 

[Automatik]

S'il peut y avoir plusieurs espaces consécutifs :
=SUBSTITUE(SUPPRESPACE(A1);" ";CAR(10))

Salut,
C'est ce qui se rapproche le plus de ce que je cherche mais j'aimerais que ça agisse seulement quand dans le texte il y a plusieurs espaces. Je te mets l'exemple tu vas comprendre direct.

 

[Automatik]

Bonjour à tous,
Effectivement sans fichier joint, c'est difficile d'imaginer le truc.
Du coup, je suis parti avec simplement plusieurs espaces séparant 2 mots
Exemple : TOTO TITI
et j'en ai sorti cette formule de ma petite tête, mais quelle formule !!!!!
En A1= TOTO TITI et la formule en B1=GAUCHE(A1;TROUVE(" ";A1;1)-1) & CAR(10) & STXT(A1;TROUVE(" ";A1;1)+NBCAR(A1)-NBCAR(SUBSTITUE(A1;" "; ""));10)
@+ Lolote83

Bonjour,
Merci de ta réponse.
Effectivement désolé d'avoir oublié le fichier..
Je te le met là.
J'ai essayé ta formule et ça m'affiche que le premier mot.

 

[vgendron]

sans macro. je ne sais pas faire..
par macro. ca donne ca

Sub test2()
Chaine = Range("A1") 'on récupère la chaine à traiter

For i = 1 To Len(Chaine) 'pour chaque caractère de la chaine
    If Mid(Chaine, i, 1) = " " And Mid(Chaine, i + 1, 1) = " " Then 'si le caractère i ET le caractère sont des espaces
        j = i
        While Mid(Chaine, j, 1) = " " 'on continue de parcourir jusqu'à trouver le dernier espace de la série
            j = j + 1
        Wend
        Chaine= Replace(Chaine, Mid(Chaine, i, j - i), Chr(10)) 'on remplace toute la série par un retour chariot
    End If
Next i

Range("B1") = Chaine
End Sub

 

[vgendron]

PS: pas la peine de reposter ton fichier à chaque réponse
une seule fois dans le post initial suffit.