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
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
VB:
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