XL 2013 Exécuter des sous totaux par macro

C

Compte Supprimé 979

Guest

• 26 Février 2022

• #2

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+

 

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 26 Février 2022

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #4

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

 

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 26 Février 2022

• #5

Bonjour Staple1600

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #6

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?

 

Vote positif 0 Vote négatif

B

bob64100

XLDnaute Nouveau

• 26 Février 2022

• #7

Parfait... Merci beaucoup Staple1600

Bonne soirée
Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Février 2022

• #8

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 !"

 

Vote positif 0 Vote négatif