XL 2010 Création d'un tableau croisé dynamique à partir de cellule déjà sélectionnée

ricorico

XLDnaute Nouveau
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.

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
 

Pièces jointes

  • TestMacro.xlsx
    13.7 KB · Affichages: 8
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
291 730
Messages
1 917 540
Membres
179 714
dernier inscrit
saiter
Haut Bas