VBA - Filtre avancé avec TCD

Bonjour le forum !

Je vous présente mon fichier :
Dans l'onglet "Commandes" il y a les données que j'extrais (de base c'est un fichier qui fait une centaine de colonnes et une dizaine de milliers de lignes, j'ai simplifié ici et ces données ne seront pas mises dans le fichier d'analyse)
Dans l'onglet "Liste clients" il y a les codes clients et le nom du client en rapport avec ce code (plusieurs codes pour un même client)
Dans l'onglet "Récap", j'y ai mis les codes clients avec le nom associé sous forme de TCD, ainsi que les en-têtes de l'onglet "Commandes" que je souhaite rapporter (au vu du nombre dans le fichier de base)

L'onglet "Commandes" est un fichier que j'extrais et qui ne sera pas dans ce fichier, mais rangé dans un dossier à part avec comme nom la semaine d'extraction (et avec beaucoup plus de lignes et colonnes, l'idée est avec un code de rechercher le fichier en question en mettant la semaine dans une cellule pour éviter de l'ouvrir et fermer manuellement => ex : le fichier s'appelle "Semaine26", il y aura donc "C://Fichier commande/Fichier de la "[D1]".xlsx" avec en D1 "Semaine26" + les différents codes permettant l'ouverture/fermeture de ce dernier, là-dessus pas de soucis)

Mon but est, dans l'onglet "Récap", de filtrer sur le nom du client (utilisation d'un TCD pour éviter de filtrer les lignes de la feuille) et qu'avec un filtre avancé je puisse récupérer les données de l'onglet "Commandes" (donc du fichier d'extraction) correspondants aux en-têtes et aux clients en question de l'onglet "Récap", et qu'à chaque fois que je modifie en filtrant le nom et/ou le code du client, les données se mettent à jour en fonction.

J'avais pensé avec un code pour le filtre avancé et le petit bouton pour faire la màj une fois le(s) client(s) choisi, mais j'avoue bloquer sur la zone de critère du filtre avancé vu que c'est un TCD et que la taille des données changera.
Peut-être qu'il y a une meilleure méthode pour résoudre mon soucis que je prendrais volontiers, mais je reste bloqué sur mon idée et je n'avance plus.

Un grand merci pour votre aide !

Bonjour,

Citation:

---

J'avais pensé avec un code pour le filtre avancé et le petit bouton pour faire la màj une fois le(s) client(s) choisi, mais j'avoue bloquer sur la zone de critère du filtre avancé vu que c'est un TCD et que la taille des données changera.

---

Pour en savoir plus sur les filtres avancés, Les filtres avancés ou élaborés dans Excel

Pour ma part, il est préférable de passer par Power Query. Une requête qui pourra charger le fichier "C://Fichier commande/Fichier de la "[D1]".xlsx" sans problème. Le seul code VBA à écrire dans ce cas là est l'actualisation de la ou des requêtes depuis une procédure événementielle (une ligne de code)

Bonjour Philippe,

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Pour en savoir plus sur les filtres avancés, Les filtres avancés ou élaborés dans Excel

Pour ma part, il est préférable de passer par Power Query. Une requête qui pourra charger le fichier "C://Fichier commande/Fichier de la "[D1]".xlsx" sans problème. Le seul code VBA à écrire dans ce cas là est l'actualisation de la ou des requêtes depuis une procédure événementielle (une ligne de code)

---

Cela m'intéresserait de connaitre la marche à suivre. Je n'ai jamais utilisé Power Query et fonctionnant avec une requête. Ca m'aiderait beaucoup.
Merci pour votre aide

Bonjour,
Le classeur principal se trouve dans un dossier dédié et les classeur "Semaine_nn" dans un sous-dossier Commande et ceux-ci contiennent une feuille avec un tableau structuré nommé Tableau1
La cellule où l'on entre le numéro de semaine se nomme pWeek
La requête est actualisée dès que l'on entre le numéro de semaine grâce à la procédure événementielle

Le code de la requête Power Query

Code:

---

1 2 3 4 5 6 7 8 9 10 11

let // Récupère la valeur de la cellule nommée pWeek SourceWeek = Excel.CurrentWorkbook(){[Name="pWeek"]}[Content]{0}[Column1], // Construit dynamiquement le chemin du fichier en utilisant la valeur de la semaine FilePath = "C:\Users\phili\Desktop\Test_Import_Fichier\Commande\Semaine_" & Text.From(SourceWeek) & ".xlsx", // Charge le fichier Excel Source = Excel.Workbook(File.Contents(FilePath), null, true), Tableau1_Table = Source{[Item="Tableau1",Kind="Table"]}[Data], #"Type modifié" = Table.TransformColumnTypes(Tableau1_Table,{{"Division", type text}, {"Code client", Int64.Type}, {"Nom client", type text}, {"Date de saisie de commande", type date}, {"N° de commande", Int64.Type}, {"Date de livraison demandée", type date}, {"Quantité commandée", Int64.Type}, {"Prix de vente", Int64.Type}, {"Référence", Int64.Type}, {"N° de semaine", Int64.Type}}) in #"Type modifié"

---

Code de la procédure événementielle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("pWeek")) Is Nothing Then Application.EnableEvents = False On Error GoTo ErrorHandler Me.Range("t_Commande").ListObject.QueryTable.Refresh BackgroundQuery:=False ErrorHandler: Application.EnableEvents = True If Err.Number <> 0 Then MsgBox "Erreur lors de l'actualisation de la table de requête: " & Err.Description, vbCritical End If On Error GoTo 0 End If End Sub

---

S'il y a lieu ensuite de filtrer ce tableau, suivant d'autres critères, une autre requête peut être créée.
Pour manipuler des données Power Query est plus efficace et surtout permet une mise en place en très peu de temps par rapport à un développement en VBA.

Pièce jointe 656587

Bonjour,
Merci beaucoup pour l'aide et ces explications. En effet, il y a d'autres critères comme le fait de choisir les colonnes d'analyse (j'en ai une centaine dans mon fichier de base et il ne m'en faut que 7 pour avoir les données qu'il me faut), et également le fait de pouvoir filtrer sur le nom du client et de pouvoir en choisir plusieurs à la fois, je ne sais pas si cela est possible.
Je vais également regarder de mon côté pour me former à l'utilisation de Power Query, qui ne m'est pas familier du tout

Bonjour,
Tout est possible, il faut juste connaître les critères et les colonnes à exporter.
Power Query est l'OUTIL à utiliser pour transformer des données. Bien plus rapide à mettre en place et à appréhender que le VBA