Recherche case GrandTotal d'un tableau croisé dynamique

bonjour Alain,

x = ActiveSheet.PivotTables("Tableau croisé dynamique3").GrandTotalName
y = Cells.Find(What:=x).Address

isabelle

Bonjour
Comment faire pour trouver la cellule ou est affichée le Grand Total d'un
TCD
Le Label se trouve avec
ActiveWorkbook.Worksheets(ws.Name).PivotTables(1).GrandTotalName
mais la cellule ou est affichée ce Grand total?
Merci

ou plus précisément si les totaux de ligne et de colonne sont affichés :

ActiveSheet.PivotTables(1).PivotSelect "", xlDataAndLabel, True
cl = Selection.Item(1).Column
x = Cells.Find(What:=x).Column
y = Application.Match(ActiveSheet.PivotTables(1).GrandTotalName, Columns(cl), 0)
AdressetTotal = Cells(y, x).Address
MontantTotal = Cells(y, x)

isabelle

bonjour Alain,

x = ActiveSheet.PivotTables("Tableau croisé dynamique3").GrandTotalName
y = Cells.Find(What:=x).Address

isabelle

Bonjour
Comment faire pour trouver la cellule ou est affichée le Grand Total d'un
TCD
Le Label se trouve avec
ActiveWorkbook.Worksheets(ws.Name).PivotTables(1).GrandTotalName
mais la cellule ou est affichée ce Grand total?
Merci