XL 2013 Exécuter des sous totaux par macro

[bob64100]

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

 

[Compte Supprimé 979]

Bonjour bob64100 et bienvenue

Pouvez-vous nous expliquer le pourquoi du VBA pour des sous-totaux
Alors qu'Excel sait le faire très bien

A+

 

[bob64100]

Bonjour BrunoM45

J'exporte ce fichier sous excel d'un logiciel de vente. De ce fait à chaque exportation je dois refaire les mises en page, forme, tri, sous-totaux... Je pensais qu'une macro me ferait gagner du temps

 

[Staple1600]

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 ?

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

 

[bob64100]

Bonjour Staple1600

En réponse à votre question.. oui j'ai fait l'exécution via l'enregistrement de la macro en manuel

 

[Staple1600]

Re

Je disais cela car le fichier exemple étant un *.xlsx, il ne contenait donc pas vos essais VBA.

Vous avez testé ma macro sur votre fichier?

 

[bob64100]

Parfait... Merci beaucoup Staple1600

Bonne soirée
Cordialement

 

[Staple1600]

Re

Celui qui a travaillé le plus c'est l'enregistreur de macros
Je paraphrase donc cette maxime célèbre
"Les décors sont de l'Enregistreur et les costumes de Donald Staple !"