Ss totaux vba

[g_delphine]

Bonjour, je pense ne pas être à la première à avoir ce pb....
Je veux faire en VBA des sous totaux à 2 niveaux. séparemment la formule marche pour un niveau et ensuite le second. Mais ensemble, le dernier niveau écrase le 1er...
Help svp... merci !

Sub Macro4()

Range("A1:M100").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

End Sub

 

[pierrejean]

Re : Ss totaux vba

bonjour Dephine
et bienvenue sur XLD

Qu'esperais-tu de la seconde ligne ?

 

[g_delphine]

Re : Ss totaux vba

Bonjour
Objectif avoir un sous total colonne A (ou D) qui inclura un autre sous total de la colonne B (ou E)....
Merci

 

[pierrejean]

Re : Ss totaux vba

Re

A tester:

Sub Macro4()
    Range("A1:M100").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7, 8), Replace:=[COLOR=blue]False[/COLOR], PageBreaks:=False, SummaryBelowData:=True
End Sub

 

[g_delphine]

Re : Ss totaux vba

tout simplement !! super merci !