Microsoft 365 Extraire lignes de caractères dans long texte

[Dann]

Bonjour,

Je recherche à extraire des lignes de caractères dans un texte et les renvoyer dans chaque rubrique sur même ligne !

Ces lignes commencent par :
(exemple)

1 x jhsbvhbivbiubiv

1 x jhsb vn kjbvubqouha
Etc...

Cependant il peut y en avoir 1 ou plusieurs, jusqu'à 5

Merci pour votre aide
Dann

 

[eriiic]

Bonjour,

le 1 x est fixe ?
Et tu ne montres pas le résultat que tu veux obtenir.

les renvoyer dans chaque rubrique sur même ligne

ne veux rien dire pour nous, et ne dit pas ce que tu fais du reste du texte.
eric

 

[Dann]

En fait je veux ressortir les chaines des lignes commençant par 1 x ?

1 x b b hbbcbhghhh

1 x gvgvhjvhbhjbhhhh

La première expression dans la rubrique "Colonne B"
La deuxième expression dans la rubrique "Colonne C"

Exc...

 

[Dann]

Le 1 x est fixe

 

[zebanx]

Bonsoir Dann, Eriiic, le forum

En m'aidant d'une fonction écrite par PatrickToulon (😉) et avec ou sans occurences.
C'est du VBA donc le fichier est enregistré ici en .XSLM.

xl-ment
zebanx

 

[job75]

Bonjour Dann, eriiiic, zebanx, le forum,

Formule en B2 à tirer à droite et vers le bas :

=SIERREUR("1 x "&STXT($A2;TROUVE("µ";SUBSTITUE($A2;"1 x ";"µ";COLONNE()-1))+3;TROUVE(CAR(10);SUBSTITUE($A2;"1 x ";"µ";COLONNE()-1);TROUVE("µ";SUBSTITUE($A2;"1 x ";"µ";COLONNE()-1)))-TROUVE("µ";SUBSTITUE($A2;"1 x ";"µ";COLONNE()-1)));"")

A+

 

[job75]

Bien entendu en définissant les noms Texte et Pos la formule se simplifie considérablement :

=SIERREUR("1 x "&STXT($A2;Pos+3;TROUVE(CAR(10);Texte;Pos)-Pos);"")

Fichier (2).

Edit : ah mais du coup je vois qu'il y a plus simple, fichier (3) :

=SIERREUR(STXT($A2;Pos;TROUVE(CAR(10);Texte;Pos)-Pos+3);"")

 

[Dann]

Merci 🙂
En fait, mon TEXTE est en colonne " I " et je veux copier dans les rubriques " L / M / N / O / P "
Qu'est-ce qui doit être modifié dans les formules ?

 

[job75]

Dans la formule définissant le nom Texte remplacer -1 par -11, fichier(4).

 

[job75]

Une remarque pour terminer.

Les solutions précédentes supposent que chaque chaîne suivant "1 x " se termine par CAR(10).

Dans ce fichier (5) ce n'est pas le cas pour la dernière chaîne en I2, alors utiliser en L2 :

=SIERREUR(STXT($I2;Pos;TROUVE(CAR(10);Texte&CAR(10);Pos)-Pos+3);"")

 

[Dann]

Je n'arrive pas à comprendre le fonctionnement de ta formule et la transposer à ma base de travail !
Est-ce que tu pourrais me briffer ?
Merci d'avance

 

[job75]

Pour comprendre ces formule il vous faut d'abord comprendre à quoi sert le 4ème argument de la fonction SUBSTITUE (SUBSTITUTE en anglais) et le 3ème argument de la fonction TROUVE (FIND).

Si vous ne le savez pas faites une recherche pour ces 2 fonctions sur le web.

 

[Dann]

Non, c'est @Pos et @Texte Je ne comprends pas le cheminement ?
=TROUVE("µ";Texte) ==> que représente "µ"

 

[job75]

"µ" c'est le caractère unique qui remplace la chaîne "1 x " de rang COLONNE()-11.

 

[Dann]

"µ" c'est le caractère unique qui remplace la chaîne "1 x " de rang COLONNE()-11.
Ou est-cette info ?