VBA - Filtre TableauX croiséS dynamiqueS

[Mathieu666]

Bonjour, ma première publication de discussion! Merci d'avance!

Voilà mon problème: j'ai trois TCD qui doivent se filtrer à partir d'une cellule (B6), j'ai une macro qui le fait mais seulement pour un seul TDC. Comment pourrais-je modifier le code pour pouvoir le faire sur deux autres TDC?

Voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("B6:B7")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("15021").PivotTables("Tableau croisé dynamique6")
Set xPFile = xPTable.PivotFields("Mesure")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub

Mathieu

 

[chris]

Bonjour

Pourquoi ne pas tout simplement utiliser un segment connecté à l'ensemble des TCD ?

Ce lien n'existe plus

 

[Mathieu666]

Tant qu'à y être, j'aurai une autre question: En fait, j'ai une dizaine d'onglets (15021, 15022, 15026, 15027....etc) et j'aimerais que la macro s'applique automatiquement aussi à ces autres onglets définis (pas tous les onglets, par exemple, je ne veux pas que les TDC de mon onglet sommaire soit touché). Quelque chose qui donnerait "Set xPTable = Worksheets("15021", "15022", "15026",..etc).PivotTables("Tableau croisé dynamique6")".

Merci encore!

 

[Mathieu666]

Bonjour

Pourquoi ne pas tout simplement utiliser un segment connecté à l'ensemble des TCD ?

Ce lien n'existe plus

Parce que j'ai plusieurs onglets du même genre (15021, 15022,..) et parce que je veux automatiser. Si j'ai mal compris ta question, juste me le dire car je suis pas un pro en macro et en segments.

 

[chris]

Re

Si la source des tcd est la même un seul segment automatise tout sans code...

Tu ne le relie pas aux tcd du sommaire mais à tous les autres...

 

[Mathieu666]

Re

Si la source des tcd est la même un seul segment automatise tout sans code...

Tu ne le relie pas aux tcd du sommaire mais à tous les autres...

comment je pourrais faire ça?

 

[chris]

Re

C'est expliqué dans le lien que j'ai donné

 

[Mathieu666]

Re

C'est expliqué dans le lien que j'ai donné

Super, ca fonctionne bien, j'aimerais camoufler a temps partiel la fenêtre du segment par contre. Je vais essayer de voir comment on fait.

 

[chris]

Re

Tu veux dire quoi concrètement ?

 

[Mathieu666]

Re

Tu veux dire quoi concrètement ?

Non, laisse tomber, plus je teste les segments plus je comprends et plus modifie mon fichier, disons que ça ouvre d'autres portes! Maintenant, au lieu d'avoir des dizaines d'onglets, j'en ai un seul et je laisse l'utilisateur aller où il veut.

Merci beaucoup!