Discussion :

[valérieF]

Bonjour,

Je cherche à actualiser le tcd présents sur les feuilles d'un fichier excel mais il se peut que le nom du TCD soit parfois différents, y aurait il un moyen pour que le code traite le tcd sur lequel on se positionne quelque soit son nom ?


Voici le code basic :

avec TCD ="Tableau croisé dynamique1"
et nom de la feuille = "1420"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Code Centre de coût").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Code Centre de coût").CurrentPage = "1420"

merci pour votre aide

[78chris]

Bonjour

Pour traiter un TCD par VBA, il est préférable de lui avoir donné un nom.

Mais sinon on peut faire une boucle sur l'ensemble des TCD de la feuille, voire une double boucle feuilles et TCD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For Each SH In ThisWorkbook.Worksheets
        For Each TCD In SH.PivotTables

Edit : ton code n'actualise pas, il filtre. Ce sont 2 choses bien différentes. Mais le code que j'ai donné marchera dans les 2 cas, selon ce que tu mettras dans la boucle.

[tamtam64]

et avec un application.calculate?
ca permet de mettre a jour les calculs

[78chris]

Bonjour

et avec un application.calculate?
ca permet de mettre a jour les calculs

Les tableaux croisés, contrairement aux formules, ne se calculent pas. Il faut les actualiser.

[valérieF]

oui oui ca je savais, et comment sont déclarés SH et TCD ? SH = sheets et TCD = PivotTables ?

[joe.levrai]

Bonjour,

Sheets c'est la collection des Sheet (Feuille)
PivotTables c'est la collection des PivotTable (TCD)

Quand on parcours une collection, on utilise une variable qui représente un objet de la collection

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim SH as Sheet
Dim TCD as PivotTable

le s à la fin de ces types de variable représente la collection
s'il n'y a pas de s : c'est un objet de la collection