Bonjour tout le monde:
j'ai sur une seule feuille plusieurs TCD que je gère avec le code suivant :
Existe-t-il un moyen d'écrire tout cela en une seule instruction avec "with" ou autres?
j'ai sur une seule feuille plusieurs TCD que je gère avec le code suivant :
Code:
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Client"). _
CurrentPage = Cells(2, 2).Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Client"). _
CurrentPage = Cells(2, 2).Value
ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields("Client"). _
CurrentPage = Cells(2, 2).Value
ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Client"). _
CurrentPage = Cells(2, 2).Value
ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("Client"). _
CurrentPage = Cells(2, 2).Value
ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Client"). _
CurrentPage = Cells(2, 2).Value
Existe-t-il un moyen d'écrire tout cela en une seule instruction avec "with" ou autres?