Bonjour,
Je fais appel à vous car je suis bloqué sur un point dans mon code VBA.
En effet je voudrais, après avoir sélectionné les cellules qui composeront mon TCD, pouvoir cliquez sur un bouton qui me le créé. Le TCD que je désire est assez basique, il est composé de seulement 2 colonnes mais je n'arrive pas à le faire fonctionner.
Je met en pièce-jointe un exemple d'excel ainsi que mon code VBA
Merci d'avance.
Je fais appel à vous car je suis bloqué sur un point dans mon code VBA.
En effet je voudrais, après avoir sélectionné les cellules qui composeront mon TCD, pouvoir cliquez sur un bouton qui me le créé. Le TCD que je désire est assez basique, il est composé de seulement 2 colonnes mais je n'arrive pas à le faire fonctionner.
Je met en pièce-jointe un exemple d'excel ainsi que mon code VBA
Merci d'avance.
VB:
ActiveCell.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"REPARTITION TEMPS D'ARRET!R1C7:R53C8", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="Lecture Data!R13C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
Sheets("Lecture Data").Select
Cells(13, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Description du statut")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Down Hours"), _
"Somme de Down Hours", xlSum
Dernière édition: