XL 2016 Extraction de texte

[msingle]

Bonjour,

Même si le sujet est fréquent sur ce forum, ma recherche a été vaine jusqu'à présent...

La voici :

Je dois extraire d'une série de cellules, certaines parties de celles-ci. Malheureusement, toutes les cellules ne contiennent pas l'entièreté des données à extraire.

Mieux qu'un long discours, je joins un fichier exemple.

Merci d'avance pour votre aide!

Marc

 

[2passage]

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

 

[pierrejean]

Bonjour Marc

Salut 2passage

Un essai par macro

 

[msingle]

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.

 

[msingle]

Une (partie) de solution avec formules.

Quelqu'un pour terminer le travail?

 

[msingle]

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

 

[job75]

Bonsoir msingle, 2passage, Pierre,

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

=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+

 

[msingle]

Bonsoir job75,

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

Bravo et merci!