XL 2016 VBA Filtre TCD en fonction d'une cellule

Sabrhm

XLDnaute Junior
Bonjour,

Je voudrais grâce à VBA appliquer la valeur d'une cellule au filtre du TCD.

En A1 de ma feuille, j'ai 2017W41 (semaine 41 de l'année de 2017), le filtre de mon TCD est aussi sous ce format là (je dois actualiser hebdomadairement plusieurs TCD et filtrer la semaine en question, je perds beaucoup de temps).

J'ai commencé quelques chose mais ça ne donne rien.

Sheets("Feuil1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date_").PivotItems(Range("A1")).Visible = True

Merci d'avance pour votre aide.

Cordialement,

Simon
 

chris

XLDnaute Barbatruc
Re

Problème de conception...
Si le numéro de semaine est donné par formule à partir d'une date cela peut facilement se corriger et on peut avoir un segment pour l'année et un pour la semaine ou inverser le tri du segment.

Si tu gardes les choses en l'état, au pire utilise VBA pour filtrer le segment connecté à tous les TCD, c'est le plus simple...
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40