Extraire des lignes par rapport a une colonne sur une autre feuille

Bonsoir à tous,

Je possède dans un classeur sur la feuille 2, une liste de 125 noms différents (dans la colonne A). Et rien d'autre sur la feuille.

Sur la feuille 1, je retrouve en colonne G une liste de 30 000 noms et dans les autres colonnes des données spécifiques à chaque noms (adresse, âge, etc...). Comment pourrais-je faire pour ne faire apparaitre sur ma feuille 1 (ou sur une autre feuille) que les lignes concernées par les 125 noms ?
Ce nouveau sujet étant le premier, n'hésitez pas à me reprendre si j'ai commis des impairs :) .

Je vous remercie pour l'aide que vous pouvez m'apporter.

Bonne soirée

Salut KB_BK

Avec la formule INDEX EQUIV

Voir proposition en pièce jointe

Bonjour et bienvenue,

Tu n'indiques pas la version Excel que tu utilises.

Une proposition Récupérer et transformer (Power Query).

Complément gratuit Microsoft pour Excel 2010 et 2013. Natif pour les versions ultérieures.

Cdlt.

Bonjour tout le monde,

J'ai voulu tester la vitesse pour une liste de 100 noms sur 30000 : environ 8 secondes. Ce n'est pas "flash", mais ça donne une indication.

extraction.xlsm

Bonjour tout le monde,

Un essai avec filtre suivant liste.....

Avec export sur feuille Résultat...

Cordialement,

Bonjour,

Une petite optimisation de la procédure d'Optimix !?

Cdlt.

Sub Extraction2()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim nL2 As Long, nC As Long, i As Long
Dim n

    'Application.ScreenUpdating = False

    Set ws1 = Sheets("Feuil1")
    Set ws2 = Sheets("Feuil2")

    nL2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
    nC = ws1.Range("A1").CurrentRegion.Columns.Count
    For i = 2 To nL2
        On Error Resume Next
        n = Application.Match(ws2.Cells(i, 1).Value, ws1.Columns(2), 0)
        If Not IsError(n) Then
            ws2.Cells(i, 2).Resize(, nC).Value = ws1.Cells(n, 1).Resize(, nC).Value
        End If
    Next i

    ws2.Cells(1).EntireColumn.Delete

End Sub

Cdlt.

Nettement améliorée en temps. Bravo.

Bonjour à tous,

Waouh, je ne m'attendais pas a autant de réponse ! Merci beaucoup !

J'ai pu m'en sortir avec la formule de Mtek.

Pour les autres solutions un peu plus industrialiser, il faut que je prenne le temps de bien tout décortiquer !

Bonne journée !

Cdlt,

KB_BK