VBA - Filtre TableauX croiséS dynamiqueS

  • Initiateur de la discussion Initiateur de la discussion Mathieu666
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mathieu666

XLDnaute Nouveau
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
 
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!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
2 K
Réponses
1
Affichages
850
Retour