XL 2013 Exécuter des sous totaux par macro

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 !

bob64100

XLDnaute Nouveau
Bonjour,

Je me lance dans la création de macros sous excel. Par contre je me heurte à une macro qui ne fonctionne pas.
Je voudrais faire des sous-totaux via une macro. Celle ci ne fonctionne qu'une fois puis beuge

je vous joint un tableau en exemple en haut le tableau avant les sous-totaux en dessous les sous totaux souhaités.
Par contre les sous totaux dans les colonnes i j k l ne sont pas souhaités

Merci d'avance
Cordialement
 

Pièces jointes

Bonjour le fil

Je ne sais pas si on gagne du temps
Mais on caresse moins sa souris
Code adapté de l'enregistreur de macros
NB: Tu n'avais essayé d'enregistrer un macro pendant que tu faisais ton sous-total manuellement ?

VB:
Sub UmmaGumma()
Dim Bazinga
Bazinga = Array(3, 4, 5, 6, 7, 8, 9, 10, 14, 15, 16, 17, 18)
Range("A10").CurrentRegion.Subtotal _
    GroupBy:=1, _
        Function:=xlSum, _
            TotalList:=Bazinga, _
                Replace:=-1, _
                    PageBreaks:=0, _
                        SummaryBelowData:=-1
ActiveSheet.Outline.ShowLevels RowLevels:=2
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
9
Affichages
141
Réponses
7
Affichages
280
  • Question Question
Microsoft 365 macro TCD
Réponses
4
Affichages
241
Retour