Disparition de s/totaux dans tableau dynamique avec VBA

[BZH56]

Bonjour au forum
j'utilise régulièrement des tableaux dynamiques sans problème mais pour faciliter le travail des utilisateurs(et les mauvaises manipulations..) , je veux inclure cette création dans une macro et je suis confronte a une disparition de mes sous totaux lorsque je relance la macro alors que lors de la création avec l'enregistreur d'excel , tout va bien.
ci joint un extrait très simplifie du résultat attendu.

Merci de me dire ou est le bug que je puisse corriger .

@+

 

[JCGL]

Re : Disparition de s/totaux dans tableau dynamique avec VBA

Bonjour à tous,

Inverse l'ordre : création des valeurs nombrées puis des champs de lignes

Sub tabdynamique()    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Donnee!R1C1:R30C1", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="resultat!R14C1", TableName:="TCD1" _
        , DefaultVersion:=xlPivotTableVersion10
    Sheets("resultat").Select
    Cells(14, 1).Select
    ActiveSheet.PivotTables("TCD1").AddDataField ActiveSheet. _
        PivotTables("TCD1").PivotFields("Initiales"), "Nombre de Initiales", xlCount
     With ActiveSheet.PivotTables("TCD1").PivotFields("Initiales")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

A+ à tous

 

[BZH56]

Re : Disparition de s/totaux dans tableau dynamique avec VBA

Bonjour à tous,

Inverse l'ordre : création des valeurs nombrées puis des champs de lignes

Sub tabdynamique()    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Donnee!R1C1:R30C1", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="resultat!R14C1", TableName:="TCD1" _
        , DefaultVersion:=xlPivotTableVersion10
    Sheets("resultat").Select
    Cells(14, 1).Select
    ActiveSheet.PivotTables("TCD1").AddDataField ActiveSheet. _
        PivotTables("TCD1").PivotFields("Initiales"), "Nombre de Initiales", xlCount
     With ActiveSheet.PivotTables("TCD1").PivotFields("Initiales")
        .Orientation = xlRowField
        .Position = 1
    End With
End Sub

A+ à tous

merci a toi , cela marche normalement
mais peux tu me dire pourquoi avec l'enregistreur de macro , on n'arrive pas a reproduire le même code?
a+

 

[JCGL]

Re : Disparition de s/totaux dans tableau dynamique avec VBA

Bonjour à tous,

L'enregistreur de macro ne fait qu'enregistrer tes macros dans l'ordre où tu les exécutes.

A+ à tous