[TCD] [VBA] : Ecriture de plusieurs codes similaires avec un seul With

[Arvensis]

Bonjour tout le monde:

j'ai sur une seule feuille plusieurs TCD que je gère avec le code suivant :

    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?

 

[Guest]

Re : [TCD] [VBA] : Ecriture de plusieurs codes similaires avec un seul With

Bonjour,

Traitera tous les tableaux croisés dynamique de la feuille active:

[COLOR=blue]Sub[/COLOR] Truc()
 [COLOR=blue]Dim[/COLOR] pvt [COLOR=blue]As[/COLOR] PivotTable
 [COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] pvt [COLOR=blue]In[/COLOR] ActiveSheet.PivotTables
    pvt.PivotFields([I]"Client"[/I]).CurrentPage = Cells(2, 2).Value
 [COLOR=blue]Next[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

A+

 

[Arvensis]

Re : [TCD] [VBA] : Ecriture de plusieurs codes similaires avec un seul With

Merci Hasco ça marche impec.