XL 2013 comment EXTRAIRE un texte entre deux guillemets pour en faire une liste

[ondryp]

bonjour
je suis vraiment novice et j'essaie de comprendre comment extraire un texte qui se trouve entre deux guillemets.
j'ai une liste d'email que j'ai extraite de mon programme de gestion de stock mais il me donne le listing sur une seule colonne et voilà le type d'info

grign, %pascale. %,"pascale.","pascale.grign@gmail.com"


en fait je dois extraire de cette colonne tous les emails repris entre les 2 guillemets verts pour avoir mon listing propre et prêt à l'emailing

ce sont toutes les cases de la colonne A de A1 à A10473

merci
Pascal

 

[JHA]

Bonjour à tous,

Ton fichier n'est pas passé, avec le texte en "A2"

=SUBSTITUE(STXT(A2;CHERCHE(CAR(34)&",";A2)+2;99);CAR(34);"")

JHA

 

[Victor21]

Bonjour ondryp et bienvenue sur XLD.

Un seul exemple, pas de fichier joint...
Essayes cependant :

=SUBSTITUE(STXT(A1;TROUVE(""",""";A1)+3;9^9);"""";"")

Edit : Bonjour, JHA

 

[ondryp]

bonjour Patrick
voilà le fichier ah zut cela ne marche pas car extension CSV
merci

 

[ondryp]

voilà

 

[ondryp]

c'est pas urgent, profitez du soleil

 

[Victor21]

Re,

[...]voilà le fichier ah zut cela ne marche pas car extension CSV

Avez-vous testé la formule que je vous ai transmise (à coller en B1 et recopier jusqu'en B10473.
Pour la recopier vers le bas, inutile de la tirer sur 10000 lignes, double-cliquez sur la croix en bas à droite de B1

 

[Victor21]

Re,
Une autre solution avec Rechercher-Remplacer : sélectionnez la colonne A, puis Rechercher, *"," par rien

puis la même chose avec les guillemets finaux.

 

[mapomme]

Bonjour à tous,

Autre méthode sans formule:

• sélectionner la colonne A
• choisir le menu Données / Convertir
• sélectionner l'option Délimité puis cliquez sur Suivant
• Comme Séparateurs, cocher Autres: et indiquer les double-guillemets "dans la zone de texte juste à côté
• cliquez sur Terminer

 

[Victor21]

Bonjour, mapomme.

Je crois bien qu'ondryp profite du soleil pendant qu'on fait son boulot

 

[ondryp]

et avec ca

 

[JHA]

Bonjour à tous,

Avec les deux formules proposées

JHA

 

[mapomme]

Re,

Plusieurs à proposer des solutions, aucune réponse concernant ces propositions. Étrange !

 

[job75]

Bonsoir à tous,

En VBA ça donne ceci :

Sub Extraire()
[A:A].Replace "*"",""", "", xlPart
[A:A].Replace """", ""
End Sub

A+