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

J

JHA

XLDnaute Barbatruc

• 2 Juin 2019

• #2

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: 2 Juin 2019

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 2 Juin 2019

• #3

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

 

Vote positif 0 Vote négatif

O

ondryp

XLDnaute Nouveau

• 2 Juin 2019

• #4

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

 

Vote positif 0 Vote négatif

O

ondryp

XLDnaute Nouveau

• 2 Juin 2019

• #5

voilà

 

Pièces jointes

• ClasseurEXTRAIRE.xlsx

  9.7 KB · Affichages: 8

Vote positif 0 Vote négatif

O

ondryp

XLDnaute Nouveau

• 2 Juin 2019

• #6

c'est pas urgent, profitez du soleil

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 2 Juin 2019

• #7

Re,

ondryp à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 2 Juin 2019

• #8

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2019

• #9

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 2 Juin 2019

• #10

Bonjour, mapomme.

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

 

Vote positif 0 Vote négatif

O

ondryp

XLDnaute Nouveau

• 2 Juin 2019

• #11

et avec ca

 

Pièces jointes

• ClasseurEXTRAIRE.xlsx

  9.7 KB · Affichages: 6

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 2 Juin 2019

• #12

Bonjour à tous,

Avec les deux formules proposées

JHA

 

Pièces jointes

• ClasseurEXTRAIRE.xlsx

  10.8 KB · Affichages: 5

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2019

• #13

Re,

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juin 2019

• #14

Bonsoir à tous,

En VBA ça donne ceci :

VB:

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

A+

 

Pièces jointes

• Extraire(1).xlsm

  15.6 KB · Affichages: 4

Vote positif 0 Vote négatif