XL 2016 VBA Filtre TCD en fonction d'une cellule

[Sabrhm]

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]

Bonjour

Pourquoi tout simplement ne pas mettre un segment connecté à l'ensemble des TCD : cela marche sans VBA...

 

[Sabrhm]

Bonjour

Pourquoi tout simplement ne pas mettre un segment connecté à l'ensemble des TCD : cela marche sans VBA...

Bonjour Chris,
J'utilise déjà des segments pour mes différents TCD mais je ne trouve pas ça pratique. Une solution VBA me parait plus appropriée étant donné mon problème.
Merci pour votre réponse

 

[chris]

RE

Peux-tu expliquer ce que tu ne trouves pas pratique ?

 

[Sabrhm]

RE

Peux-tu expliquer ce que tu ne trouves pas pratique ?

Re,
Le fait de devoir jouer à cache-cache avec le numéro de semaine que je recherche. Mes semaines remontent jusqu'à 2013 et pour ne rien arranger, les numéros de semaine ne sont pas dans l'ordre.

 

[chris]

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...

 

[Sabrhm]

Re
Ok merci...
Bonne fin de journée