XL 2016 Extraire toutes lignes lignes d'un tableau correspondant à une liste de nom

J

JHA

XLDnaute Barbatruc

• 13 Juillet 2022

• #2

Bonjour à tous,

Un début de piste avec Power Query

JHA

 

Pièces jointes

• Excel-downloads-extraire-liste.xlsx

  27.8 KB · Affichages: 13

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 13 Juillet 2022

• #3

Bonjour,

Puisque faite, une autre proposition Power Query

cordialement

 

Pièces jointes

• PQ-extraire-liste.xlsx

  33.1 KB · Affichages: 15

Vote positif 0 Vote négatif

M

maroon

XLDnaute Junior

• 13 Juillet 2022

• #4

Bonjour @JHA et @Hasco,

Merci beaucoup pour vos réponses rapides, c'est exactement ce que je voulais!
Par contre je ne sais pas du tout comment vous avez fait!
Je crois que je n'ai jamais utilisé les fonctions PQ!

Est-ce que c'est possible d'avoir les étapes que vous avez effectuées?

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Juillet 2022

• #5

Bonjour à tous,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Juillet 2022

• #6

Bonjour à tous,

Voyez le fichier joint et cette macro très classique dans la feuille "Résultat" :

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With Sheets("Feuil1").[A1].CurrentRegion
    .Cells(2, .Columns.Count + 2) = "=COUNTIF(Feuil2!A:A,A2)" 'critère (en K2)
    .AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count + 2).Resize(2), [A1] 'filtre avancé copié
    .Cells(2, .Columns.Count + 2) = "" 'efface le critère
End With
End Sub

Elle utilise le filtre avancé et se déclenche quand on active la feuille.

A+

 

Pièces jointes

• Extraire-liste(1).xlsm

  22.5 KB · Affichages: 10

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Juillet 2022

• #7

Bonjour @job75

J'ai essayé le filtre avancé avant de poster la réponse avec power query mais je n'ai pas obtenu le résultat escompté. Pour les premières données cela fonctionnait mais après il affichait plus de noms que la liste.
Je n'ai pa trouvé la solution par filtre avancé, as-tu une idée du problème?

JHA

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Juillet 2022

• #8

@JHA je n'ai jamais vu le filtre avancé faire des erreurs.

Pour tester ma macro j'ai recopié le tableau source sur 105 000 lignes.

Elle restitue 16 000 lignes en 0,5 seconde chez moi.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Juillet 2022

• #9

Bonjour à tous,
Bonjour @job75

Peux-tu, STP, jeter un oeil sur le fichier.

JHA

 

Pièces jointes

• Excel-downloads-extraire-liste.xlsx

  268.5 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juillet 2022

• #10

Bonjour JHA, le forum,

Ton filtrage ne va pas.

Il faut utiliser comme zone de critères la plage Feuil1!$K$1:$K$2.

Avec cette formule en Feuil1!K2 :

Code:

=NB.SI(Feuil2!A:A;A2)

C'est ce que fait ma macro.

A+

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Juillet 2022

• #11

Bonjour à tous,

Oui, je m'en suis aperçu en ouvrant ton fichier.

Il me semblait qu'avec les valeurs misent les unes sous les autres cela revenait au "ou" pour le filre avancé, d'où mon erreur.
Cela va mieux avec la formule de critère:

VB:

=NB.SI(Tableau1[NOMS];Feuil1!A2)

JHA

 

Pièces jointes

• Excel-downloads-extraire-liste Bis.xlsx

  521.2 KB · Affichages: 11

Vote positif 0 Vote négatif

M

maroon

XLDnaute Junior

• 17 Juillet 2022

• #12

JHA à dit:

Bonjour à tous,



Regarde la pièce jointe 1145260

Cliquez pour agrandir...

Bonjour JHA,

Merci pour ta réponse, par contre je ne suis pas très avancé car je ne sais pas du tout utiliser PQ! JE vais regarder si j'y arrive mais pour l'instant je ne comprends pas grand chose!

 

Vote positif 0 Vote négatif

M

maroon

XLDnaute Junior

• 17 Juillet 2022

• #13

job75 à dit:

Bonjour à tous,

Voyez le fichier joint et cette macro très classique dans la feuille "Résultat" :

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With Sheets("Feuil1").[A1].CurrentRegion
    .Cells(2, .Columns.Count + 2) = "=COUNTIF(Feuil2!A:A,A2)" 'critère (en K2)
    .AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count + 2).Resize(2), [A1] 'filtre avancé copié
    .Cells(2, .Columns.Count + 2) = "" 'efface le critère
End With
End Sub

Elle utilise le filtre avancé et se déclenche quand on active la feuille.

A+

Cliquez pour agrandir...

Bonjour job75,

Cette macro fonctionne très bien, merci! Je ne comprends pas bien ce que vient faire la cellule K2 dans l'histoire mais en tout cas ça fonctionne!

Merci encore pour ta réponse!

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 17 Juillet 2022

• #14

Bonjour à tous,

Sur le fichier du poste #15, il y a un filtre avancé dans l'onglet "Filtre Avancé" qui reprend la méthode de Job75 sans code VBA.

JHA

 

Vote positif 0 Vote négatif