XL 2016 Extraction de texte

2passage

XLDnaute Impliqué

• 29 Janvier 2019

• #2

Bonjour,
Il faut convertir le texte en tableau : Ruban données / bouton convertir / Délimité / Cocher autre et mettre le pipe ( | = Alt GR 6), terminer et voilà. il reste à remplacer les titres par rien (Ctrl H, remplacer "Gender : " par "", etc...)
Bonne journée

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Janvier 2019

• #3

Bonjour Marc

Salut 2passage

Un essai par macro

 

Pièces jointes

• Extraction.xlsm

  23.7 KB · Affichages: 14

Vote positif 0 Vote négatif

msingle

XLDnaute Junior

• 29 Janvier 2019

• #4

Bonjour pierrejean,

Parfait, la macro!

Malheureusement, c'est sur une Google Sheet que je suis obligé de travailler...

Et donc je devrais pouvoir traduire la macro en Google Apps Script.

 

Vote positif 0 Vote négatif

msingle

XLDnaute Junior

• 29 Janvier 2019

• #5

Une (partie) de solution avec formules.

Quelqu'un pour terminer le travail?

 

Pièces jointes

• Extraction2.xlsm

  27.9 KB · Affichages: 10

Vote positif 0 Vote négatif

msingle

XLDnaute Junior

• 30 Janvier 2019

• #6

Voici le fichier complété, pour ceux que cela intéresse.

 

Pièces jointes

• Extraction3.xlsm

  28.7 KB · Affichages: 10

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Janvier 2019

• #7

Bonsoir msingle, 2passage, Pierre,

Une seule formule en Feuil4!B3 à tirer à droite et vers le bas :

Code:

=SIERREUR(STXT(Feuil1!$B2;CHERCHE(B$2;Feuil1!$B2)+NBCAR(B$2)+2;TROUVE("|";Feuil1!$B2&" |";CHERCHE(B$2;Feuil1!$B2))-CHERCHE(B$2;Feuil1!$B2)-NBCAR(B$2)-3);"")

Les en-têtes de colonnes en ligne 2 ont été revues, attention à ne pas y mettre des espaces superflus.

Fichier joint.

A+

 

Pièces jointes

• Extraction(1).xlsm

  29.7 KB · Affichages: 11

Vote positif 0 Vote négatif

msingle

XLDnaute Junior

• 30 Janvier 2019

• #8

Bonsoir job75,

Je savais qu'il y avait plus simple, mais là...

Bravo et merci!

 

Vote positif 0 Vote négatif