XL 2021 traitement de texte

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #2

Bonjour @chingilou ,

Il doit manquer une petit fichier avec des exemples.

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 14 Mai 2023

• #3

pas besoin de fichier exemple je pense
mettre des cellules en worksheet.proper ou nompropre seulement les mots plus de 3 lettres (est-ce que c'est possible et surtout comment ? )

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #4

chingilou à dit:

pas besoin de fichier exemple je pense

Cliquez pour agrandir...

C'est vous qui voyez... Ce n'est pas moi qui sollicite une réponse.

En passant, que faites vous des mots de moins de 4 lettres : on les passe en minuscule, on les laisse inchangés ou bien encore autre chose ?

 

Dernière édition: 14 Mai 2023

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Impliqué

Supporter XLD

• 14 Mai 2023

• #5

Bonne nuit les noctambules ! bonne nuit @chingilou
Avec EXCEL 2021

chingilou à dit:

en retirant les espaces superflues au début à la fin et au mileu du texte

Cliquez pour agrandir...

Ça se fait avec la fonction SUPPRESPACE(" mon texte b ")

chingilou à dit:

mettre le texte en nompropre (majuscule de la 1er lettre ) si seulement le mot (le texte d'une cellule contient plus d'un mot ) contient plus de 3 lettres)

Cliquez pour agrandir...

Cette formule fait le boulot :

VB:

=JOINDRE.TEXTE(" ";VRAI;LET(Chaîne;" "&SUPPRESPACE(B4);Nb;NBCAR(Chaîne)-NBCAR(SUBSTITUE(Chaîne;" ";""));Marquage;SUBSTITUE(SUBSTITUE(Chaîne;" ";"¯";LIGNE(DECALER(Feuil1!$A$1;0;0;Nb;1)));" ";"¯";LIGNE(DECALER(Feuil1!$A$1;0;0;Nb;1)));Liste;GAUCHE(STXT(Marquage;TROUVE("¯";Marquage)+1;NBCAR(Chaîne));TROUVE("¯";STXT(Marquage;TROUVE("¯";Marquage)+1;NBCAR(Chaîne))&"¯")-1);SI(NBCAR(Liste)>3;NOMPROPRE(Liste);Liste)))

Voir l'exemple en pièce jointe

 

Pièces jointes

• Exemple.xlsx

  11.6 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

C

chingilou

XLDnaute Junior

• 14 Mai 2023

• #6

merci de la réponse rapide mais SUPPRESPACE ne retire pas les ligne vides à la fin du texte par exemple chez moi en tous cas
pour la formule je teste et je te réponderai merci en tout cas

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #7

chingilou à dit:

merci de la réponse rapide mais SUPPRESPACE ne retire pas les ligne vides à la fin du texte par exemple chez moi en tous cas

Cliquez pour agrandir...

Tiens je croyais qu'un fichier exemple était inutile...

 

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Impliqué

Supporter XLD

• 14 Mai 2023

• #8

Re @chingilou

chingilou à dit:

merci de la réponse rapide mais SUPPRESPACE ne retire pas les ligne vides à la fin du texte

Cliquez pour agrandir...

J'ai du mal comprendre ta demande, je traite le texte ligne à ligne

 

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Impliqué

Supporter XLD

• 14 Mai 2023

• #9

Effectivement @mapomme avec un exemple on patine moins dans la choucroute !

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 14 Mai 2023

• #10

une cellule peut contenir un texte à plusieurs lignes j'importe ces textes pour les traiter et ca serai bien d'automatiser le traitement
c'est vrai que je dois donner un fichier exemple désolé mapomme désole

merci pour la formule attheone parfaite

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 14 Mai 2023

• #11

en fin de compte SUPPRESPACE fais son travail je ne sais pas pourquoi j'avais un texte ou la derniere ligne vide du texte était resté
donc les noctambules

[SIZE=4]AtTheOne[/SIZE] et mapomme merci énormément​

solution trouvé donc sujet clos

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2023

• #12

Re,

Avant de me coucher, une formule assez courte qui doit faire le travail (et qui était prête )
Avec l'exemple de @AtTheOne :

VB:

=LET(tablo;FRACTIONNER.TEXTE([@[Texte Brut]];" ");SIERREUR(JOINDRE.TEXTE(" ";VRAI;SI(NBCAR(tablo)>3;NOMPROPRE(tablo);tablo));""))

Allez bonne nuit à tous.

 

Pièces jointes

• chingilou- formater texte- v1.xlsx

  11.4 KB · Affichages: 7

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 14 Mai 2023

• #13

re-MERCI encore
j'utilisais moi ca

VB:

=SUPPRESPACE(NOMPROPRE(SUBSTITUE(SUBSTITUE(EPURAGE(B10);CAR(10)&CAR(13);" "); CAR(160);" ")))

pour les lignes vides que j'avais remarqués mais ca me donnais pas le résultat voulu

 

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Impliqué

Supporter XLD

• 14 Mai 2023

• #14

L'inconvénient de la fonction EPURAGE (que j'avais pensé à utiliser) c'est qu'elle supprime carrément tous les caractères de contrôle donc on n'a plus de séparateur entre le dernier mot de la ligne n et le premier mot de la ligne non vide qui suit ...

 

Vote positif 0 Vote négatif

C

chingilou

XLDnaute Junior

• 14 Mai 2023

• #15

c'est ce que j'avais c'est pour ça que j'ai abondonné je connaisais pas ça de cette fonction (vilaine fonction) merci allez dormez les gars je vous ai assez retenue bonne nuit

 

Vote positif 0 Vote négatif