Supprimer les sauts de lignes dans une cellule GS
Fermé
qwerty_213
Messages postés
26
Date d'inscription
mardi 12 août 2014
Statut
Membre
Dernière intervention
28 mai 2023
-
14 juin 2021 à 22:39
qwerty_213 Messages postés 26 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 28 mai 2023 - 15 juin 2021 à 21:04
qwerty_213 Messages postés 26 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 28 mai 2023 - 15 juin 2021 à 21:04
A voir également:
- Supprimer les sauts de lignes dans une cellule GS
- Aller à la ligne dans une cellule excel - Guide
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Impossible de supprimer un fichier - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
jee pee
Messages postés
40431
Date d'inscription
mercredi 2 mai 2007
Statut
Modérateur
Dernière intervention
7 novembre 2024
9 416
Modifié le 15 juin 2021 à 00:21
Modifié le 15 juin 2021 à 00:21
Bonjour,
A essayer avec texte en A1
A essayer avec texte en A1
=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;CAR(10)&CAR(10)&CAR(10);CAR(10));CAR(10)&CAR(10);CAR(10));CAR(10)&CAR(10);CAR(10));CAR(10);"";1)
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
15 juin 2021 à 00:31
15 juin 2021 à 00:31
Bonsoir qwerty
Ce n'est pas une équation qu'il te faut mais
soit une formule (comme celle proposée par jee pee que je salue au passage, mais qui chez moi met toute les infos à la suite sur la même ligne)
soit une macro comme celle ci :
Faire Alt + F11 pour ouvrir l'éditeur VBA puis Insertion et Module
Copier et coller la macro dans le module puis fermer l'éditeur
Pour faire fonctionner la macro: se positionner sur la cellule à traiter puis dans le ruban aller à Affichage puis Macros, sélectionner la macro et Exécuter
Cdlmnt
Via
Ce n'est pas une équation qu'il te faut mais
soit une formule (comme celle proposée par jee pee que je salue au passage, mais qui chez moi met toute les infos à la suite sur la même ligne)
soit une macro comme celle ci :
Sub supprimersaut() chaine = ActiveCell.Value tablo = Split(chaine, vbLf) For n = 0 To UBound(tablo) If tablo(n) <> "" Then nouv = nouv & Chr(10) & tablo(n) Next ActiveCell = Right(nouv, Len(nouv) - 1) End Sub
Faire Alt + F11 pour ouvrir l'éditeur VBA puis Insertion et Module
Copier et coller la macro dans le module puis fermer l'éditeur
Pour faire fonctionner la macro: se positionner sur la cellule à traiter puis dans le ruban aller à Affichage puis Macros, sélectionner la macro et Exécuter
Cdlmnt
Via
jee pee
Messages postés
40431
Date d'inscription
mercredi 2 mai 2007
Statut
Modérateur
Dernière intervention
7 novembre 2024
9 416
15 juin 2021 à 00:35
15 juin 2021 à 00:35
bonjour, même ligne : il faut peut être passer le format de cellule en "renvoyer à la ligne automatiquement" ?
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
>
jee pee
Messages postés
40431
Date d'inscription
mercredi 2 mai 2007
Statut
Modérateur
Dernière intervention
7 novembre 2024
15 juin 2021 à 01:09
15 juin 2021 à 01:09
Oui cela va un peu mieux avec renvoyer à la ligne automatiquement mais ce n''est pas encore tout à fait ça
Avec au départ
aaa
bbb
ccc
ddd
j'obtiens avec ta formule :
aaabbb
ccc
ddd
Avec au départ
aaa
bbb
ccc
ddd
j'obtiens avec ta formule :
aaabbb
ccc
ddd
jee pee
Messages postés
40431
Date d'inscription
mercredi 2 mai 2007
Statut
Modérateur
Dernière intervention
7 novembre 2024
9 416
>
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
15 juin 2021 à 08:48
15 juin 2021 à 08:48
yep, ya un bug quand cela ne démarre pas par un saut de ligne. Comme là je n'ai pas envie de me creuser la tête, je vais en rajouter un, pour pouvoir l'enlever ;-)
=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(CAR(10)&A1;CAR(10)&CAR(10)&CAR(10);CAR(10));CAR(10)&CAR(10);CAR(10));CAR(10)&CAR(10);CAR(10));CAR(10);"";1)
qwerty_213
Messages postés
26
Date d'inscription
mardi 12 août 2014
Statut
Membre
Dernière intervention
28 mai 2023
15 juin 2021 à 21:04
15 juin 2021 à 21:04
mrci pour vos reponses,
j'ai trouvé une equation generique
=SUBSTITUTE(TRIM(SUBSTITUTE(E43,CHAR(10)," "))," ",CHAR(10))
j'ai trouvé une equation generique
=SUBSTITUTE(TRIM(SUBSTITUTE(E43,CHAR(10)," "))," ",CHAR(10))
