XL 2019 Extraire des données

[Caninge]

Bonjour à tous,

finalement je vais vous demander un petit coup de main pour résoudre mon problème.
J'ai pourtant cherché dans des exemples...mais rien de concluant.

A partir de la valeur écrite dans la cellule B2 de la feuille RECHERCHE, comment lister toutes les lignes de la feuille PARTIE
se rapportant à ce nom. Je ne sais pas si je m'explique bien ! Je mets un fichier exemple.
Merci d'avance.
CANINGE

 

[goube]

Bonsoir,
Une proposition avec Power Query.
Cordialement.

 

[job75]

Bonsoir Caninge, goube,

Voyez le fichier joint et ces 2 macros dans le code de la feuille "Recherche" :

Private Sub Worksheet_activate()
Worksheet_Change [B2] 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
Range("C2:O" & Rows.Count).Delete xlUp 'RAZ
With Sheets("Parties")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Range("B3:N" & .Range("B" & .Rows.Count).End(xlUp).Row)
        .AutoFilter 3, [B2].Value 'filtre automatique
        .Copy [C2] 'copier-coller
        .AutoFilter
    End With
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elles s'exécutent quand on modifie ou valide une cellule quelconque ou qu'on active la feuille.

A+

 

[Caninge]

Bonjour Goube, Job75,
merci d'avoir répondu.
j'examine vos réponses.
CANINGE

 

[job75]

Bonjour à tous,

Pour tester j'ai copié la plage 4:20 de la 1ère feuille sur 51 000 lignes.

Chez moi la macro s'exécute en 1,2 seconde.

C'est certainement moins rapide qu'avec Power Query.

A+

 

[Caninge]

Bonjour Job75, goube,
j'ai adopté la solution de Job75 qui me plait bien !
je garde tout de même celle de goube que je mets en réserve.
Merci !

 

[Caninge]

Bonjour Job75,
j'ai vu que la procédure effaçait les formules que j'ai voulu mettre dans les cellules T6 T7 et T8.
Sans doute une ligne à ajouter, mais comme je ne connais pas...
Pouvez-vous me donner un coup de main.
Merci
CANINGE

 

[goube]

Bonsoir,
Une proposition.
Cordialement.

 

[Membre supprimé 341069]

Bonjour,
Une tentative "à l'ancienne" avec Excel 2000 et si j'ai tout bien compris...
Cordialement.

 

[Membre supprimé 341069]

Suite :
Dans votre tableau initial, revoir la colonne F de la feuille Parties ?

 

[Caninge]

Bonjour à tous,
merci d'avoir répondu, dès que possible je regarde vous solutions.
Et je vous tiens au courant.
Merci.
CANINGE

 

[Caninge]

Bonjour à tous,
je viens de mettre la solution de ernest-92.
C'est parfait ! Bonne soirée
Merci
CANINGE