Choix d'une valeur d'un filtre pour TCD en VBA.

[Fred]

Bonjour à tous,

J'ai créé un TCD nommé "TCD_i" (i en integer) dans l'onglet nommé "Page i" (i en integer).
Dans un onglet "Tableau de bord", j'ai les graphes des TCD_i avec des filtres. Le filtre sur chaque TCD est "Mois". Tous les TCD ont comme source les mêmes données. Les graphes sont nommés pareil que les TCD, à savoir "TCD_i".

Je souhaite changer la valeur du filtre "Mois" par macro (par exemple défiltrer "juin 2012" et filtrer sur "juillet 2012"). J'obtiens une erreur 1004 "impossible de lire les propriétés PivotTable...".

Voici le code :

ActiveSheet.ChartObjects(TCD_i).Activate
ActiveSheet.PivotTables(TCD_i).PivotFields("Mois").PivotItems("juin 2012").Visible = False
ActiveSheet.PivotTables(TCD_i).PivotFields("Mois").PivotItems("juillet 2012").Visible = true

Merci d'avance.

 

[ERIC S]

Re : Choix d'une valeur d'un filtre pour TCD en VBA.

Bonjour

essaie de faire l'inverse, valide avant d'invalider. Quand tu invalides en premier, tu risques de n'avoir aucune sélection et cela provoque un eerreur

 

[Fred]

Re : Choix d'une valeur d'un filtre pour TCD en VBA.

Merci pour ta réponse.

J'ai essayé, et malheureusement, j'ai toujours la même erreur...

 

[Fred]

Re : Choix d'une valeur d'un filtre pour TCD en VBA.

Résolu, merci.

Il s'agissait d'un problème de variable et de sélection d'onglet.