Extraire des données d'un tableau excel par liste de mots clefs

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Août 2019

• #2

Bonjour @TOTOEXCEL2019,

Un essai dans le fichier joint...

 

Pièces jointes

• TOTOEXCEL2019- filtrage- v1.xls

  59.5 KB · Affichages: 39

Vote positif 0 Vote négatif

T

TOTOEXCEL2019

XLDnaute Nouveau

• 10 Août 2019

• #3

Bonjour @mapomme ,

Merci pour cet essai, cela semble fonctionner jusqu'à la colonne "F";
cependant pourquoi la colonne "G" n'apparaît-elle pas dans le "result" ? Cela décale les autres d'un rang.

 

Pièces jointes

• TOTOEXCEL2019- filtrage- v2.xls

  79.5 KB · Affichages: 25

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 10 Août 2019

• #4

Bonjour à tous

Une solution PowerQuery

J'ai laissé le bouton qui actualise la requête

 

Pièces jointes

• EXCEL2019_filtragePQ.xlsm

  40.4 KB · Affichages: 42

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 10 Août 2019

• #5

Re

Si tu changes de fichier en cours de route ...

Pas trouvé le point G dans le 1er !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Août 2019

• #6

Bonsoir le fil, chris

chris à dit:

Re
Pas trouvé le point G dans le 1er !

Cliquez pour agrandir...

On oublie trop souvent que dans Excel, il y un X

NB: Chris, c'était volontaire hein? ou juste une coïncidence

 

Vote positif 0 Vote négatif

T

TOTOEXCEL2019

XLDnaute Nouveau

• 10 Août 2019

• #7

Bonsoir @chris ,

Bravo et merci pour ta solution PowerQuery !

Je passe la discussion en statut "Résolu".


Note : @Staple1600 sympa la pointe d'humour.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Août 2019

• #8

TOTOEXCEL2019 à dit:

Merci pour cet essai, cela semble fonctionner jusqu'à la colonne "F";
cependant pourquoi la colonne "G" n'apparaît-elle pas dans le "result" ? Cela décale les autres d'un rang.

Cliquez pour agrandir...

Parce que dans le fichier fourni au message #1, les données s'arrêtent à la colonne F. J'ai utilisé la colonne G pour la formule de filtrage.
J'ai fait en fonction du fichier fourni.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 10 Août 2019

• #9

Re,

Finalement, on se demande s'il faut répondre puisque c'est résolu. J'arrête donc de modifier le fichier pour la prise en compte de toutes les colonnes.
Bien le salut Toto...

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 10 Août 2019

• #10

Bonsoir à tous,
Une autre méthode avec une fonction personnalisée Power Query,
Bonne soirée

 

Pièces jointes

• MotsCles.xlsm

  32.1 KB · Affichages: 27

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Août 2019

• #11

Bonjour,

Avec le filtre élaboré

VB:

Sub FiltreInverseListe()
    Sheets("bd").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:=Range("A1:A2"), Unique:=False
End Sub

Boisgontier

 

Pièces jointes

• FiltreListe4-1.xlsm

  30.1 KB · Affichages: 19

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 11 Août 2019

• #12

Bonjour

BOISGONTIER à dit:

Avec le filtre élaboré

Cliquez pour agrandir...

Cela a été mon 1er reflexe mais a priori on cherche dans toutes les colonnes et a minima dans 2...

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Août 2019

• #13

>Cela a été mon 1er réflexe mais a priori on cherche dans toutes les colonnes

Il suffit de modifier la formule:

=SOMMEPROD(ESTNUM(CHERCHE(liste;SUBSTITUE(BD!C2:F2;" ";"")))*(liste<>""))>0

Avec formulaire et liste de tous les mots-clés de la BD et choix intuitif des mots clés (fonctionne qq la BD):

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreBDPlusieursMotsCles.xlsm

Boisgontier

 

Pièces jointes

• Copie de FiltreListe4-1.xlsm

  30.2 KB · Affichages: 20

Dernière édition: 12 Août 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2019

• #14

Bonjour à tous,

Chez moi sur un tableau de 25800 lignes (fichier joint), cette macro est 3 fois plus rapide que le filtre avancé :

VB:

Sub Filtre_job75()
Dim t, criteres, ub&, tablo, ncol%, n&, i&, j%, k&, col%
t = Timer
criteres = [liste].Resize(Application.CountA([liste]), 2) 'matrice, plus rapide, au moins 2 éléments
ub = UBound(criteres)
tablo = Sheets("BD").[A1].CurrentRegion
ncol = UBound(tablo, 2)
n = 1
For i = 2 To UBound(tablo)
    For j = 3 To ncol
        For k = 1 To ub
            If InStr(tablo(i, j), criteres(k, 1)) Then
                n = n + 1
                For col = 1 To ncol: tablo(n, col) = tablo(i, col): Next col 'copie la ligne
                GoTo 1
            End If
    Next k, j
1 Next i
'---restitution---
With Sheets("Résultat").[A1]
    .Resize(n, ncol) = tablo
    .Offset(n).Resize(Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
MsgBox "Durée " & Format(Timer - t, "0.00 \s"), , "job75"
End Sub

A+

 

Pièces jointes

• Comparaison filtrages(1).xlsm

  900.2 KB · Affichages: 42

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 11 Août 2019

• #15

RE à tous

PowerQuery me donne un temps plus court mais il est possible que les duplications avantage...

Si je double la quantité de données en dupliquant, et relance le temps diminue comme s'il avait gardé des infos en cache...

 

Vote positif 0 Vote négatif