Discussion :

[Chrislezoud]

Bonjour,
Débutant VBA, je n'arrive pas à filtrer un TCD avec une macro.
L'objectif est de mettre la valeur du filtre en A2, puis de lancer la macro. (cf. fichier joint)
C'est un fichier de test bien sûr, l'application finale est plus sophistiquée mais je bute sur ce point.

Merci

[78chris]

Bonjour

Pourquoi ne pas tout simplement ajouter un segment ?

[Chrislezoud]

Bonjour

Pourquoi ne pas tout simplement ajouter un segment ?

Merci pour la réponse, mais ça ne résous pas mon problème. En fait j'ai plusieurs onglets avec des TCD et des tables "normales", et j'ai besoin d'avoir un filtre commun pour tous ces onglets. D'où mon idée d'utiliser une macro, ça marche bien pour les filtres des tables mais ça coince dans la syntaxe pour les TCD.

[Fvandermeulen]

Salut,

As tu essayé l'enregistreur de macro ?
Ca aurait du te mettre sur la voie de la syntaxe.

Code :

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

1
2
    ActiveSheet.PivotTables(1).PivotFields("ICE").ClearAllFilters 'J'utilise 1 pour les PivotTables afin de ne pas devoir utiliser les noms qui risque d'être différent à chaque onglet.
    ActiveSheet.PivotTables(1).PivotFields("ICE").CurrentPage = Range("RefFiltre").Value 'J'ai nommé la cellule A2 'RefFiltre'

[Chrislezoud]

Salut,

As tu essayé l'enregistreur de macro ?
Ca aurait du te mettre sur la voie de la syntaxe.

Code :

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

1
2
    ActiveSheet.PivotTables(1).PivotFields("ICE").ClearAllFilters 'J'utilise 1 pour les PivotTables afin de ne pas devoir utiliser les noms qui risque d'être différent à chaque onglet.
    ActiveSheet.PivotTables(1).PivotFields("ICE").CurrentPage = Range("RefFiltre").Value 'J'ai nommé la cellule A2 'RefFiltre'

[Chrislezoud]

Bonjour,

merci pour votre support.
Finalement, j'ai utilisé une variable comme filtre que j'ai déclaré juste avant.
A+