Microsoft 365 Total général TCD à gauche : Solution VBA ?

[Euph0n]

Bonjour,

J'essaie de mettre le total général d'un tcd à gauche de celui-ci (se met à droite dans les options prévues par microsoft).

Je suis débutant, j'ai essayé cette macro mais ça ne fonctionne pas, auriez-vous une idée ou est-ce impossible ? Peut-être que la solution est hors macro.

Merci de votre aide

Sub MoveRowTotalAllTCDsToLeft()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As pivotField
    Dim pi As PivotItem
 
    Set ws = ActiveSheet
 
    For Each pt In ws.PivotTables
        For Each pf In pt.RowFields
            On Error Resume Next
            pf.AutoSort xlManual, pf.SourceName
            For Each pi In pf.PivotItems
                If pi.Name = "(Grand Total)" Then
                    pi.Position = 1
                    Exit For
                End If
            Next pi
            On Error GoTo 0
        Next pf
    Next pt
 
End Sub

 

[chris]

Bonjour
A très, très rares exceptions près, VBA ne fait qu'automatiser ce qui est possible manuellement mais ne modifie pas le fonctionnement d'Excel

Ce n'est donc pas possible.

Selon le TCD et sa source on peut parfois tricher mais on manque d'éléments ici...

 

[merinos]

Bonjour @Euph0n ,

C'est possible: 2 tableaux l'un a coté de l'autre et en cachant des colonnes...

A+

Merinos