Discussion :

[Denis_67]

Bonsoir,

J'ai repris l'excellent tuto sur les filtres avancés, mais j'ai un petit souci.
https://philippetulliez.developpez.c...edfilter/#LXIV

J'essaie d'utiliser un tableau structuré pour faire un export de données filtrées or cela ne fonctionne pas correctement.
alors que si j'utilise une plage nommée (grâce à la fonction décaler) cela fonctionne.

J'ai essayé d'établir le filtre elaboré "à la main" et sur tableau structuré ça ne marche pas !!
est une limitation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Export()
  ThisWorkbook.Sheets("Résultat").Cells.Clear
  Range("Tableau1").AdvancedFilter _     '<<<==== Tableau1 ne fonctionne pas ne me renvoie qu'une seule ligne alors que si je mets une zone nommée ça marche.
         Action:=xlFilterCopy, _
         CriteriaRange:=ThisWorkbook.Sheets("Param_Export").Range("A1:Y2"), _
         CopyToRange:=ThisWorkbook.Sheets("Résultat").Range("A1"), _
         Unique:=False
End Sub

Merci
Denis

[78chris]

Bonjour

Si tu vérifies le gestionnaire de noms, tu peux voir que la ligne d'en-tête n'est pas associée au nom

Il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("Tableau1[#All]").AdvancedFilter _

[Transitoire]

Bonjour,
si vous voulez faire une extraction par filtres élaborés depuis une base de données d'une feuille A vers une feuille B, vous ne pouvez l'effectuer que depuis la feuille B. C'est à dire que la feuille active au moment de l'extraction doit être celle qui reçoit l'extraction.
J'espère avoir été clair dans mes explications.
Cordialement

[Denis_67]

Bonjour Chris,

En effet la ligne d'entete n'est pas dans la définition des noms.
Par contre ta syntaxe ne semble pas fonctionner. j'ai une erreur 1004 lorsque que je mets [#A20] (l'entete de mon tableau commence en ligne 20.
J'ai aussi essayé, mais pareil erreur 1004.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("Tableau1[#Tout]").AdvancedFilter

Transitoire, oui je sais, c'est d' ailleurs expliqué dans le tuto de Philippe. mais avec le code VB, je jongle sur trois feuilles. La feuille source, la feuille où sont stockés les paramètres (les filtres) et une feuille pour publier les résultats.
Dans mon application, j'applique une série de flitrages successifs et je publie les différents résultats sur une feuille.
Ca fonctionne sans problème.

Denis

[78chris]

Bonjour

Je ne vois pas le rapport entre "Tableau1[#Tout]" qui désigne la plage complète du tableau quelle que soit sa position et l'endroit ou commence le tableau...

[78chris]

Bonjour

si vous voulez faire une extraction par filtres élaborés depuis une base de données d'une feuille A vers une feuille B, vous ne pouvez l'effectuer que depuis la feuille B. C'est à dire que la feuille active au moment de l'extraction doit être celle qui reçoit l'extraction.

En VBA cela ne joue pas : il suffit de bien indiquer les feuilles concernées

[Transitoire]

J'ai essayé d'établir le filtre elaboré "à la main" et sur tableau structuré ça ne marche pas !!
est une limitation

C'était un rappel pour : à la main.
Cordialement

[Philippe Tulliez]

Bonjour,

J'essaie d'utiliser un tableau structuré pour faire un export de données filtrées or cela ne fonctionne pas correctement.
alors que si j'utilise une plage nommée (grâce à la fonction décaler) cela fonctionne.

Voir cette contribution titrée La méthode AdvancedFilter et l'objet ListObject

[Denis_67]

Merci Philippe, ça demande à etre étudié, listobject encore une nouvelle notion à capter.
Pour l'instant je reste avec ma zone nommée avec décaler, puisque ça fonctionne.
Denis

[Philippe Tulliez]

Bonjour,

listobject encore une nouvelle notion à capter

ListObject est tout simplement le tableau structuré

Pour utiliser la méthode AdvancedFilter avec un tableau structuré, on écrira par exemple ListObjects("Tableau1").Range.AdvancedFilter suivi des arguments

[Denis_67]

M E R C I Philippe,

Si déjà tu prends la peine d'argumenter, je prends la peine de tester.

et donc je confirme cela fonctionne , ce dont tu ne doutais pas, mais des fois je suis un peu lourd.

Donc je livre ma syntaxe complète. qui consiste à avoir une feuille des saisie des critères (fixes mais modifiables si besoin), une feuille de données alimenté par une requete. et une feuille résultat ou je publie les filtrages par groupement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Option Explicit
Sub Export()
Dim Ma_Ligne
  ThisWorkbook.Sheets("Resultat").Cells.Clear
 
' Filtrage 1
ThisWorkbook.Sheets("Resultat").Range("A1") = "Mon premier filtrage"
 
ThisWorkbook.Sheets("Donnees").ListObjects("Tableau1").Range.AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=ThisWorkbook.Sheets("Param_Export").Range("A2:Y3"), _
         CopyToRange:=ThisWorkbook.Sheets("Resultat").Range("A2"), _
         Unique:=False
 
'Filtrage 2
Ma_Ligne = ThisWorkbook.Sheets("Resultat").Range("A1").End(xlDown).Row + 2
ThisWorkbook.Sheets("Resultat").Range("A" & Ma_Ligne) = "Mon filtrage 2"
    ThisWorkbook.Sheets("Donnees").ListObjects("Tableau1").Range.AdvancedFilter
         Action:=xlFilterCopy, _
         CriteriaRange:=ThisWorkbook.Sheets("Param_Export").Range("A7:Y9"), _
         CopyToRange:=ThisWorkbook.Sheets("Resultat").Range("A" & Ma_Ligne + 1), _
         Unique:=False
 
 
End Sub

Bonne journée à vous tous.
Denis

[Philippe Tulliez]

Bonjour Denis et merci pour ton retour.

J'attire ton attention que la syntaxe ListObject.Range englobe les trois parties du tableau structuré, à savoir la ligne des titres (HeaderRowRange), les données (DataBodyRange) et la ligne des totaux (TotalsRowRange)/

Il y a donc lieu pour éviter d'exporter la ligne des totaux si l'un des éléments de cette ligne entrait dans les critères de faire un redimensionnement(Resize) du Range mais tout cela est expliqué et illustré dans le Fil #1 de la contribution que j'ai référencé dans ma première réponse