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

ondryp

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour à tous,

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

VB:
=SUBSTITUE(STXT(A2;CHERCHE(CAR(34)&",";A2)+2;99);CAR(34);"")
JHA
 
Dernière édition:

Victor21

XLDnaute Barbatruc
Supporter XLD
Bonjour ondryp et bienvenue sur XLD.

Un seul exemple, pas de fichier joint...
Essayes cependant :
VB:
=SUBSTITUE(STXT(A1;TROUVE(""",""";A1)+3;9^9);"""";"")
Edit : Bonjour, JHA
 

Victor21

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Barbatruc
Supporter XLD
Re,
Une autre solution avec Rechercher-Remplacer : sélectionnez la colonne A, puis Rechercher, *"," par rien
1032307 puis la même chose avec les guillemets finaux.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

job75

XLDnaute Barbatruc
Bonsoir à tous,

En VBA ça donne ceci :
VB:
Sub Extraire()
[A:A].Replace "*"",""", "", xlPart
[A:A].Replace """", ""
End Sub
A+
 

Fichiers joints

Discussions similaires


Haut Bas