Découper une phrase

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
scarlett1ere
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 26 juin 2019
Version d'Excel : 2010

Message par scarlett1ere » 26 juin 2019, 14:12

Bonjour,

Je voudrais savoir s'il existe une formule qui pourrait me découper des mots en fonction du caractère qui les sépares. Cependant, la formule gauche/droite ne fonctionne pas car il n'y a pas que un bout à droite puis un à gauche !

Exemple : Pomme // Poire // Banane

Mon but et de récupérer les 3 mots a part!

Merci pour votre aide,

Scarlett
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 563
Appréciations reçues : 25
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 26 juin 2019, 14:26

Bonjour,
Regarde le fichier joint.
Pour info tu trouve ça aussi ici : https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/
Extract.xlsm
(15.06 Kio) Téléchargé 5 fois
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
s
scarlett1ere
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 26 juin 2019
Version d'Excel : 2010

Message par scarlett1ere » 26 juin 2019, 14:31

Merci beaucoup
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 563
Appréciations reçues : 25
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 26 juin 2019, 14:34

Ca fonctionne comme tu voulais ?? :o
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
s
scarlett1ere
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 26 juin 2019
Version d'Excel : 2010

Message par scarlett1ere » 26 juin 2019, 14:38

Eh ben oui ca fonctionne parfaitement, maintenant j’essaie de l'intégrer à mon fichier
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 563
Appréciations reçues : 25
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 26 juin 2019, 14:44

Okey :)

:btres:
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 2'016
Appréciations reçues : 177
Inscrit le : 4 décembre 2004
Version d'Excel : 2013
Téléchargements : Mes applications
Contact :

Message par Sébastien » 26 juin 2019, 17:09

Bonjour,
scarlett1ere a écrit :
26 juin 2019, 14:12
Exemple : Pomme // Poire // Banane

Mon but et de récupérer les 3 mots a part!
Si tu recherches une fonction à utiliser directement dans une cellule (et que l'utilisation d'un add-in ne te dérange pas), tu as la fonction EXTRAIRE_MOT qui est là pour ça.

La formule : =EXTRAIRE_MOT(A1;1;" // ")

Pour les autres mots, remplace 1 par 2 puis par 3 :
split.png
split.png (6.32 Kio) Vu 148 fois
Cordialement,
Sébastien
s
scarlett1ere
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 26 juin 2019
Version d'Excel : 2010

Message par scarlett1ere » 26 juin 2019, 17:15

Merci beaucoup mais c'est un fichier à plus de 35000 lignes et parfois il n'y a pas que 3 mots mais 1 2 4 ou 6 alors faire du ligne à ligne va me parettre interminable je pense 😅 merci quand même
Avatar du membre
Sébastien
Administrateur
Administrateur
Messages : 2'016
Appréciations reçues : 177
Inscrit le : 4 décembre 2004
Version d'Excel : 2013
Téléchargements : Mes applications
Contact :

Message par Sébastien » 26 juin 2019, 17:28

scarlett1ere a écrit :
26 juin 2019, 17:15
Merci beaucoup mais c'est un fichier à plus de 35000 lignes et parfois il n'y a pas que 3 mots mais 1 2 4 ou 6 alors faire du ligne à ligne va me parettre interminable je pense 😅 merci quand même
Dans ce cas, si tu as les 35'000 données dans la colonne A, tu peux lancer cette macro :wink:
Sub extraire()
    
    Application.ScreenUpdating = False
    
    der_ligne = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To der_ligne
        mots = Split(Cells(i, 1), " // ")
        nb_mots = UBound(mots)
        For ii = 0 To nb_mots
            Cells(i, ii + 2) = mots(ii)
        Next
    Next

End Sub
Pour obtenir par exemple :
pomme.png
pomme.png (21.55 Kio) Vu 141 fois
Sébastien
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message