Private sub TCD

Le 01/10/2015 à 10:16

Bonjour,

Je cherche à modifier tous les filtres d'un TCD dans un private sub Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

J'ai créé cette macro mais elle ne fonctionne pas ?? Je ne sais pas où est mon erreur, merci pour votre aide.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Dim PT As PivotTable

For Each PT In Sheets("Résumé contribution").PivotTables

PT.PivotFields("Code Port").CurrentPage = Range("C5").Value

End Sub

Le 01/10/2015 à 14:05

Bonjour,

Ta question est imprécise...

Pourrais-tu reformuler?

Cdlt.

Le 01/10/2015 à 14:10

Re,

Je vous joins le fichier ainsi ce sera peut être plus clair.

Je filtre les étiquettes de colonne selon le champs (date fin). lorsque je change les filtres du 1er tableau, j'aimerais que tous les filtres des tableaux suivants fassent de même.

Merci à vous

voila le fichier en question

21tcd.xlsm (100.42 Ko)

Le 02/10/2015 à 16:34

bonjour

avec des segments

clique droit sur un segment "choisir les liaisons" , cocher les TCD qui seront liés à ce segment

j'ai laissé les filtres mais ils deviennent inutiles

éviter les TCD sur une même feuille car ils peuvent interférer

17copie-de-tcd.xlsm (99.92 Ko)