Selection d'une partie d'un texte entre 2 mots précis

Bonjour à tous le monde,

alors après 2 jours de recherche et d'essai pour mon problème je ne trouve pas la solution qui pourrait être toutes simple je suppose.

je recherche svp, une formule ou macro pour faire en sorte qu'une partie d'un texte (situé entre 2 mot précis) soit extrait et coller dans la colonne suivante sur la même ligne.

exemple :

A1 : aujourd'hui ont ait dimanche il fait beau.

comment récupérer dimanche et le transférer sur la colonne suivante en B1

je joint un fichier excel en exemple.

Merci d'avance à ce qui ce pencherons sur mon problème.

40exemple-forum.xlsx (9.70 Ko)

Bonjour Alex38

My English was good a long time ago but i do not understand your problem very beaucoup well ?

Que veux-tu extraire de A1 en C1 quel(s) mot(s) ?

pourquoi l'anglais ???

j'ai besoin de sélectionner une partie d'un texte,

l'exemple donnée sur le forum n'est pas complet.

il faut ce référer aux fichier que j'ai joint pour une idée du problème.

en fait dans le fichier tu vois un texte en A1 écrit en rouge, blanc et vert,

le but étant d'extraire la partie blanche de A1 en C1

et je ne l'avais pas dit pour le fichier joint, le texte à extraire dans cette exemple serait entre le mot "about" et le mot "Up".

voila le fichier mis a jour en pièce jointe.

59exemple-forum.xlsx (9.69 Ko)

(re)

Okay ! I understand now ! Why in English ? because ça fait du bien de temps en temps

Peut-on utiliser une cellule annexe pour "marquer" les mots début/fin ? ce serait plus simple !

Si c'est le cas :

en nommant une cellule "motDepart" (qui contient donc ABOUT) et une cellule "motFin" (qui contient UP)

le 'nommage est juste là pour simplifier la lecture de la formule !

=STXT(A1;CHERCHE(motDepart;A1)+NBCAR(motDepart)+1;NBCAR(A1)-CHERCHE(motFin;A1))

est le résultat est :

Dress silver Skin-tight mini dress made out of silver-coloured foil fabric. Low cut in the cleavage area and at the back. There is also lacing at the back. Very short sleeves.

PS/

38 c'est pour Isère ?

Bonjour,

oui mais moi j'aime la difficulté (ironie)

si tu veux pour être plus claire ces donnée en A1 sont importer d'un site et donc il faudrait que je puissent en extraire le texte contenue entre ces deux mot, par contre je ne comprend pas ce que tu as voulu dire par (Peut-on utiliser une cellule annexe pour "marquer" les mots début/fin ? )

pourrait tu m'envoyer le fichier, avec ta mise a jour incluse dedans ?

le 38 oui c'est pour l’Isère

73 c'est pour Savoie ?

(re)

Alex38 a écrit :

le 38 oui c'est pour l’Isère

bah oui forcément !
Alex38 a écrit :

73 c'est pour Savoie ?

à ton avis ?
Alex38 a écrit :

oui mais moi j'aime la difficulté

tu as raison c'est beaucoup plus simple quand c'est moi facile... ou le contraire je ne sais plus

Bref !

Alex38 a écrit :

(Peut-on utiliser une cellule annexe pour "marquer" les mots début/fin ? )

Je veux dire on prend 2 cellules au hasard (libre de préf/évidement), on écrit les mots de début et de fin dedans, et on se sert des références pour une formule qui va bien !

La question voulait dire "Est-ce qu'il se baser sur des couleurs (le blanc) ou Est-ce que l'on peut se baser sur des mots ?"

c'est pas on peut c'est il faut ce baser sur les mot indiquer ( en occurance about et le premier Up ) la couleur étant la, juste pour illustrer le problème.

Bonjour,

Petite fonction personnalisée :

Function EXTRACTABOUT(tx As String) As String
    Dim txt, i%
    txt = Replace(tx, "Information about ", "")
    txt = Replace(txt, Chr(10) & " " & Chr(10), Chr(10) & Chr(10))
    txt = Split(txt, Chr(10) & Chr(10))
    txt = txt(0) & Chr(10) & Chr(10) & txt(1)
    EXTRACTABOUT = txt
End Function

A coller dans un module standard.

A formuler :

=EXTRACTABOUT(A1)

Mettre cellule en retour ligne automatique.

Cordialement.

(re)

8) Cool !

Donc voila, here we are !

Try this many, and say me what arrived !

PS/ J'ai choisi de nommer les cellules parce que la formule se lit plus facilement !

Bonjour,

MFerrand a écrit :

Bonjour,

Petite fonction personnalisée :

Function EXTRACTABOUT(tx As String) As String
    Dim txt, i%
    txt = Replace(tx, "Information about ", "")
    txt = Replace(txt, Chr(10) & " " & Chr(10), Chr(10) & Chr(10))
    txt = Split(txt, Chr(10) & Chr(10))
    txt = txt(0) & Chr(10) & Chr(10) & txt(1)
    EXTRACTABOUT = txt
End Function

A coller dans un module standard.

A formuler :

=EXTRACTABOUT(A1)

Mettre cellule en retour ligne automatique.

Cordialement.

c'est exactement ce que je voulais merci.

andrea73 a écrit :

(re)

8) Cool !

Donc voila, here we are !

Try this many, and say me what arrived !

PS/ J'ai choisi de nommer les cellules parce que la formule se lit plus facilement !

je te remercie pour cette astuce que je ne connaissais pas encore, seulement je ne suis pas arriver l'adapter à mon classeur car pour la première ligne cela fonctionne nickel mais j'ai un classeur de 9000 ligne, comment faire pour que cela fonctionne avec l'intégralité du classeur ?

Merci à tous pour l'aide précieuse que vous m'avais apporter.

Bonjour,

cette formule marche en principe :

=STXT(A1;TROUVE("about";A1)+5;TROUVE("up";A1)-TROUVE("about";A1)-5)

Mais sinon, si c'est ponctuel j'utiliserai plutôt 1) sélectionner la colonne ou les cellules -->2) ctrl+H --> remplacer about par [rien] et 3) idem avec Up (par rien aussi)

Bonjour Rrradassse,

j'essayerai ta formule pour voir ce que cela donne, pour ce qui est de ctrl+H je connais déjà cette manipulation seulement il n'y a pas que c'est mot, est c'est pour ça, que si il faut que je fasse ctrl H pour chaque mot, et bah j'ai pas finis

d'ou une demande de formule, fonction personnaliser ou macro, pour réaliser la sélection d'un texte ce trouvant toujours entres ces mot la.

mais merci pour ton passage je vais mettre ce problème en résolut étant donnée que la solution à était apporter.

Rechercher des sujets similaires à "selection partie texte entre mots precis"