Macro TCD

[bcuk]

Bonjour,

Je voulais savoir comment créer une macro pour un TCD de 2colonnes de tailles variables.
Voici mon code.
Quelqu'un peut-il m'aider?
Merci

Sub TCD()
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
    SourceData:=ActiveSheet.CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
        TableDestination:=ActiveSheet.Range("A3"), _
        TableName:="TCD"
With ActiveSheet.PivotTables("TC")
    .PivotFields("sku_s").Orientation = xlRowField
    .AddDataField ActiveSheet.PivotTables("TCD").PivotFields("unique_name"), "Somme sur unique_name", xlSum
ExecuteExcel4Macro "PIVOT.FIELD.PROPERTIES(""TCD"",""Somme sur unique_name"",,,4)"
End With
End Sub
'

 

[Gareth]

Re : Macro TCD

Bonsoir,

Je ne sais pas exactement quel est ton probleme mais le code suivant et joint semble fontionner.

Sub Macro2()
Sourc = Sheets("Feuil1").Name & "!" & Sheets("Feuil1").[A1].CurrentRegion.Address(ReferenceStyle:=xlR1C1)
Set FDest = Sheets("Feuil1")
'------------------------
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sourc).CreatePivotTable TableDestination:=FDest.[E1], TableName:="TCD"
With FDest.PivotTables("TCD").PivotFields("NOM")
    .Orientation = xlRowField
    .Position = 1
End With
FDest.PivotTables("TCD").AddDataField FDest.PivotTables("TCD").PivotFields("PRIX"), "Somme de PRIX", xlSum
End Sub

 

[bcuk]

Re : Macro TCD

Nice !
Ca marche merci.