• Initiateur de la discussion Initiateur de la discussion g_delphine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 

Pièces jointes

Re : Ss totaux vba

Re

A tester:

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
153
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
12
Affichages
1 K
Retour