Créer un TCD

[kidnguyen]

Bonjour à toutes et à tous,
J'ai un gros problème pour créer un TCD automatiquement à partir une feuille de donnée dans le même fichier.
J'ai fait une macro pour la création le TCD mais apparament ça ne marche pas comme je voulais. Je vous met ci-dessous le code macro TCD

Sub TCD()
'
' TCD Macro
' Macro enregistrée le 25/06/2009 par
'
' Touche de raccourci du clavier: Ctrl+t
'
Columns("A😛").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Validation Exclu'!C1:C16").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"CDART")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Lib Art" _
)
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Commentaire")
.Orientation = xlRowField
.Position = 3
End With
Range("B6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Lib Art"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Range("A6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("CDART"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("QT RUPT" _
)
.Orientation = xlRowField
.Position = 4
End With
Range("C6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Commentaire") _
.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("VALO RUPT"), _
"Nombre de VALO RUPT", xlCount
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("E6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de VALO RUPT").Function = xlSum
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "TCD"
Range("F17").Select
End Sub

Merci d'avance pour votre aide.

 

[Catrice]

Re : Créer un TCD

Bonjour,

Tu ne dis pas quel est ton probleme.
Il faudrait fournir un bout de fichier.

Tu peux t'inspirer de ceci : https://www.excel-downloads.com/threads/pb-avec-macro-generant-un-tcd.122815/