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

[TOTOEXCEL2019]

Bonjour,

Voici le principe de la macro VBA actuelle : elle permet de rechercher dans le tableau de la "Feuil1" un critère, puis extrait dans une nouvelle feuille les lignes qui y sont rattachées.

Je voudrais savoir s'il est possible de la faire évoluer un peu.

En effet, il serait bien de rechercher dans le tableau de la "Feuil1" une liste de critères (présent par exemple dans l'onglet "Liste"), puis de générer une nouvelle feuille comportant les lignes identifiées par la liste de la recherche.

En d'autres termes, cela permettrait de passer d'une recherche monocritère à multicritères via une liste de mots clefs.

Je vous joins la macro VBA actuelle ainsi que l'onglet "Liste" ajouté pour faire la recherche.


Merci par avance.

 

[mapomme]

Bonjour @TOTOEXCEL2019,

Un essai dans le fichier joint...

 

[TOTOEXCEL2019]

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.

 

[chris]

Bonjour à tous

Une solution PowerQuery

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

 

[chris]

Re

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

Pas trouvé le point G dans le 1er !

 

[Staple1600]

Bonsoir le fil, chris

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

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

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

 

[TOTOEXCEL2019]

Bonsoir @chris ,

Bravo et merci pour ta solution PowerQuery !

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


Note : @Staple1600 sympa la pointe d'humour.

 

[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.

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.

 

[mapomme]

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...

 

[Amilo]

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

 

[BOISGONTIER]

Bonjour,

Avec le filtre élaboré

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

Boisgontier

 

[chris]

Bonjour

Avec le filtre élaboré

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

 

[BOISGONTIER]

>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

 

[job75]

Bonjour à tous,

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

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+

 

[chris]

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...