Microsoft 365 Extraction de texte depuis une liste

MCenpls · 12 Septembre 2023

Bonsoir la communauté Excel Downloads,

Je vous sollicite afin d'avoir peut-être une aide de votre part au sujet de mon cas.

Je souhaiterais extraire du texte contenu dans les cellules (tableau 1) les mots en gras à partir d'une liste (tableau 2) et ensuite utiliser la fonction recherche v pour aller chercher mon identifiant.

Exemple:

J'aimerais avoir ce résultat avec une fonction que je pourrais appliquer aux autres lignes.

J'ai beau chercher encore et encore (fonction chercher, trouve, stxt) je n'y arrive pas.

Ainsi, si vous avez une réponse à m'apporter, je serais heureuse de vous lire

Très bonne soirée.

Jacky67 · 13 Septembre 2023

sarahenpls à dit:
Merci beaucoup pour votre réponse @Jacky67 et le temps que vous avez passer sur mon Excel .

Le problème c'est que j'ai une récurrence de mots dans mon tableau 1, j'ai oublié de le préciser.

Regarde la pièce jointe 1178552

Je ne sais pas si cela est possible mais j'aimerais rentrer une formule dans la cellule B2 et ensuite descendre la formule avec le curseur pour l'appliquer aux cellules suivantes sans les retravailler au cas par cas.

Hello Phil69970
Re..
S'il y a beaucoup de données, un essai avec des tableaux vba

Jacky67 · 13 Septembre 2023

sarahenpls à dit:
Ainsi, si vous avez une réponse à m'apporter, je serais heureuse de vous lire

Très bonne soirée.

Bonsoir
Comme ceci peut-être

MCenpls · 13 Septembre 2023

Jacky67 à dit:
Bonsoir
Comme ceci peut-être

Merci beaucoup pour votre réponse @Jacky67 et le temps que vous avez passer sur mon Excel .

Le problème c'est que j'ai une récurrence de mots dans mon tableau 1, j'ai oublié de le préciser.

Je ne sais pas si cela est possible mais j'aimerais rentrer une formule dans la cellule B2 et ensuite descendre la formule avec le curseur pour l'appliquer aux cellules suivantes sans les retravailler au cas par cas.

Phil69970 · 13 Septembre 2023

Bonjour @sarahenpls bienvenue sur XLD et Jacky

Je te propose ce fichier avec macro il faut accepter les macros à l'ouverture du fichier

Merci de ton retour

Jacky67 · 13 Septembre 2023

sarahenpls à dit:
Merci beaucoup pour votre réponse @Jacky67 et le temps que vous avez passer sur mon Excel .

Le problème c'est que j'ai une récurrence de mots dans mon tableau 1, j'ai oublié de le préciser.

Regarde la pièce jointe 1178552

Je ne sais pas si cela est possible mais j'aimerais rentrer une formule dans la cellule B2 et ensuite descendre la formule avec le curseur pour l'appliquer aux cellules suivantes sans les retravailler au cas par cas.

Hello Phil69970
Re..
S'il y a beaucoup de données, un essai avec des tableaux vba

Phil69970 · 13 Septembre 2023

Re

Précision pour @sarahenpls :
Je suis parti sur l'idée que les 2 "tableaux" (qui n'en sont pas) sont de même longueur comme dans l'exemple fourni.

C'est vrai Jacky on ne connait pas le nombre de ligne à traiter 1000 lignes, 10 000 lignes, 100 000 lignes voir plus.

MCenpls · 13 Septembre 2023

Jacky67 à dit:
Hello Phil69970
Re..
S'il y a beaucoup de données, un essai par avec des tableaux vba

Merci beaucoup pour votre réponse et votre aide c'est exactement le résultat que je souhaitais

.

Est ce que je peux faire un copier coller de l'écriture de la macro dans un autre fichier ?

Merci encore

MCenpls · 13 Septembre 2023

Phil69970 à dit:
Bonjour @sarahenpls bienvenue sur XLD et Jacky

Je te propose ce fichier avec macro il faut accepter les macros à l'ouverture du fichier

Merci de ton retour

Merci beaucoup @Phil69970 pour le temps passé sur mon dossier .

Effectivement, mes deux "tableaux" n'ont pas la même taille, j'aurais dû vous le préciser . Malheureusement la macro ne fonctionne pas lorsque je souhaite l'appliquer à des lignes supplémentaires que je rajoute dans mon "tableau 1" et pas symétriquement dans mon "tableau 2".

Merci encore pour votre aide .

Phil69970 · 13 Septembre 2023

@sarahenpls

sarahenpls à dit:
la macro ne fonctionne pas lorsque je souhaite l'appliquer à des lignes supplémentaires que je rajoute dans mon "tableau 1" et pas symétriquement dans mon "tableau 2".

C'est normal car j'ai bien précisé

Phil69970 à dit:
Je suis parti sur l'idée que les 2 "tableaux" (qui n'en sont pas) sont de même longueur comme dans l'exemple fourni.

Jacky67 · 13 Septembre 2023

sarahenpls à dit:
Merci beaucoup pour votre réponse et votre aide c'est exactement le résultat que je souhaitais .

Est ce que je peux faire un copier coller de l'écriture de la macro dans un autre fichier ?

Merci encore

Re...
Certes oui , en adaptant les plages aux données, si elle ne sont pas A:C et F:G

MCenpls · 1 Octobre 2023

Bonjour @Jacky67 ,

La macro que vous m'avez proposée fonctionne super bien, cependant je souhaite l'appliquer à un autre type de tableau et je bloque car les colonnes ne sont pas les premières de mon tableau.

Est-ce que vous pouvez m'aider svp ?

Tentative de changement des cellules dans le code :

Option Explicit
Option Compare Text

Sub ESSAI()
Dim i&, j&, tablo1, tablo2
tablo1 = [ac3].CurrentRegion
tablo2 = [ar3].CurrentRegion
For i = LBound(tablo1) To UBound(tablo1)
For j = LBound(tablo2) To UBound(tablo2)
If InStr(tablo1(i, 1), tablo2(j, 1)) <> 0 Then
tablo1(i, 2) = tablo2(j, 1)
tablo1(i, 3) = tablo2(j, 2)
Exit For
End If
Next
Next
[ad3].CurrentRegion.Resize(, 2) = tablo1
[ae3].CurrentRegion.Resize(, 3) = tablo1
End Sub

Je suis dsl, je ne peux pas mettre mon dossier Excel avec la macro en PJ.

Très cordialement.

R@chid · 2 Octobre 2023

Bonjour @ tous,

sarahenpls à dit:
Merci beaucoup pour votre réponse @Jacky67 et le temps que vous avez passer sur mon Excel .

Le problème c'est que j'ai une récurrence de mots dans mon tableau 1, j'ai oublié de le préciser.

Regarde la pièce jointe 1178552

Je ne sais pas si cela est possible mais j'aimerais rentrer une formule dans la cellule B2 et ensuite descendre la formule avec le curseur pour l'appliquer aux cellules suivantes sans les retravailler au cas par cas.

en B3 :

VB:

=SIERREUR(INDEX(F$3:F$9;EQUIVX(VRAI;ESTNUM(CHERCHE($F$3:$F$9;$A3))));"")

@ tirer vers le bas et vers la droite.

Cordialement

R@chid · 2 Octobre 2023

Re,
on peut encore simplifier, en B3 :

VB:

=SIERREUR(INDEX(F$3:G$9;EQUIVX(VRAI;ESTNUM(CHERCHE(F$3:F$9;A3)));{1.2});"")

@ tirer vers le bas

Cordialement

MCenpls · 3 Octobre 2023

R@chid à dit:
Bonjour @ tous,

en B3 :

VB:

=SIERREUR(INDEX(F$3:F$9;EQUIVX(VRAI;ESTNUM(CHERCHE($F$3:$F$9;$A3))));"")

@ tirer vers le bas et vers la droite.

Cordialement

Bonsoir à tous,

Parfait, la formule fonctionne super bien R@chid. Merci beaucoup pour votre aide

Très bonne soirée.

Microsoft 365 Extraction de texte depuis une liste

MCenpls

XLDnaute Nouveau

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Pièces jointes

MCenpls

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

MCenpls

XLDnaute Nouveau

MCenpls

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

MCenpls

XLDnaute Nouveau

Pièces jointes

R@chid

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

MCenpls

XLDnaute Nouveau

Discussions similaires