XL 2013 Exécuter des sous totaux par macro

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

  • PROBLEME.xlsx
    11 KB · Affichages: 8

Staple1600

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
7
Affichages
319

Statistiques des forums

Discussions
312 841
Messages
2 092 711
Membres
105 517
dernier inscrit
Freddy93