g_delphine
XLDnaute Nouveau
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
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