Disparition de s/totaux dans tableau dynamique avec VBA

JCGL à dit:

Bonjour à tous,

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

VB:

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

Cliquez pour agrandir...