thefreretock | je me répond tout seul si ca peut aider d'autre:
Code :
- ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
- Montableau).CreatePivotTable TableDestination:="", _
- TableName:="Tableau de synthèse", DefaultVersion:=xlPivotTableVersion10
- ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
- ActiveSheet.Cells(3, 1).Select
-
- Set TCD = ActiveSheet.PivotTables("Tableau de synthèse" )
-
- 'regroupement
- Select Case NbRegroumpement
- Case 1
- TCD.AddFields RowFields:=Array(Regroupement 1, "Données" )
- Case 2
- TCD.AddFields RowFields:=Array("Regroupement 1, Regroupement 2, "Données" )
- Case 3
- TCD.AddFields RowFields:=Array("Regroupement 1, Regroupement 2, Regroupement 3, "Données" )
- End Select
-
-
- 'Colonne : Somme des valeurs
- For index = 1 To UBound(TableauParametre)
- With TCD.PivotFields( _
- TableauParametre(index, ColonneValeur))
- .Orientation = xlDataField
- .Caption = "Somme de " & TableauParametre(index, 3)
- .Function = xlSum
- End With
- Next index
-
- TCD.Name = "Tableau de synthèse"
- With TCD.DataPivotField
- .Orientation = xlColumnField
- .Position = 1
- End With
- TCD.PivotSelect "", xlDataAndLabel, True
- TCD.Format xlReport6
- ActiveSheet.Name = "Tableau de synthèse"
|
|