OVH Cloud OVH Cloud

MAJ de tab croisé dynamique

1 réponse
Avatar
Daniel
bonjour !

Voilà, j'ai sur une feuille 6 tableaux dynamiques qui ont la même source.
Par contre, j'ai fait une macro (voir ci dessou) qui actualise un par un les
tableaux. Le problème est que c'est long et surtout ça PLANTE! (pas de
réponse)

Y a t'il une solution, comme un code VBA qui actualise la totalité des
tableaux en même temps ??

Merci pour votre aide.


Voici le code que j'ai créer :

Sheets("RAPPORT").Select
Range("D14").Select
ActiveSheet.PivotTables("Tableau croisé dynamique26").PivotCache.Refresh
Range("I13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique27").PivotCache.Refresh
Range("O14").Select
ActiveSheet.PivotTables("Tableau croisé dynamique28").PivotCache.Refresh
Range("U13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique29").PivotCache.Refresh
Range("Z10").Select
ActiveSheet.PivotTables("Tableau croisé dynamique30").PivotCache.Refresh
Range("AE7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique31").PivotCache.Refresh

1 réponse

Avatar
isabelle
bonjour Daniel,

lors de la création des tcd tu as la possibilité d'indiquer le premier tcd comme source,
de cette facon tu n'auras qu'à actualiser le premier pour que les cinq autres soient automatiquement actualisés.

isabelle


bonjour !

Voilà, j'ai sur une feuille 6 tableaux dynamiques qui ont la même source.
Par contre, j'ai fait une macro (voir ci dessou) qui actualise un par un les
tableaux. Le problème est que c'est long et surtout ça PLANTE! (pas de
réponse)

Y a t'il une solution, comme un code VBA qui actualise la totalité des
tableaux en même temps ??

Merci pour votre aide.


Voici le code que j'ai créer :

Sheets("RAPPORT").Select
Range("D14").Select
ActiveSheet.PivotTables("Tableau croisé dynamique26").PivotCache.Refresh
Range("I13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique27").PivotCache.Refresh
Range("O14").Select
ActiveSheet.PivotTables("Tableau croisé dynamique28").PivotCache.Refresh
Range("U13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique29").PivotCache.Refresh
Range("Z10").Select
ActiveSheet.PivotTables("Tableau croisé dynamique30").PivotCache.Refresh
Range("AE7").Select
ActiveSheet.PivotTables("Tableau croisé dynamique31").PivotCache.Refresh