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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 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
Partager