Bonjour , comment boucler sur la colonne “Grand Total” d'un TCD ? (afin d’exploiter les données de cette colonne par la suite …)
Ci-dessus quelques briques de codes (dans le fichier ci-joint) susceptibles de m’aider par la suite mais pour l’instant , je n’arrive pas à les assembler …
Et la fonction « Test » ne fonctionne pas ….
Ci-dessus quelques briques de codes (dans le fichier ci-joint) susceptibles de m’aider par la suite mais pour l’instant , je n’arrive pas à les assembler …
Et la fonction « Test » ne fonctionne pas ….
Code:
Sub Macro3()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R15551C11").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Agc")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Date")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Surfaces"), "Count of Surfaces", xlCount
test
'compterNombreLignesTCD ' 1er étape d'abord on compte le nb de ligne
'requeteTCD ' 2 ème étape ensuite on extrait ligne par ligne le contenu de la colonne "Grand Total"
End Sub
Sub compterNombreLignesTCD()
Dim Pvt As PivotTable
'Définit le TCD
'Set Pvt = Worksheets("Feuil1").PivotTables("PivotTable1") 'PivotTable1 c'est le nom propre de mon TCD
Set Pvt = ActiveSheet.PivotTables("PivotTable1") 'PivotTable1 c'est le nom propre de mon TCD
'TableRange1:
'plage contenant l'intégralité du rapport de tableau croisé dynamique,
'à l'exclusion des champs de page.
MsgBox Pvt.TableRange1.Rows.Count
'TableRange2 :
'plage contenant l'intégralité du rapport de tableau croisé dynamique,
'y compris les champs de page.
MsgBox Pvt.TableRange2.Rows.Count
End Sub
Sub requeteTCD()
Dim Pvt As PivotTable
'Définit le TCD dans la feuille
Set Pvt = ActiveSheet.PivotTables("PivotTable1")
'Renvoie la valeur 'Grand Total', pour le champ '2003-01'
MsgBox Pvt.GetData("'Grand Total' 'L_scodper' '2003-01'")
End Sub
Sub test()
Dim i As Integer
Dim Pvt As PivotTable
Set Pvt = ActiveSheet.PivotTables("PivotTable1") 'PivotTable1 c'est le nom propre de mon TCD
For i = 0 To Pvt.PivotField("Grand Total").Row.Count
MsgBox Pvt.PivotFields("Grand Total").items(i).Value
Next
End Sub
Sub formule1()
' CalculatedFields permet d'appliquer une formule a une colonne enfin je crois ...
'EXEMPLE
Worksheets(1).PivotTables(1).CalculatedFields.Item(1) _
.Formula = "=((aujourdhui / 12moisavant)-1)*100"
End Sub