Ralentissement!

[flo2002]

Bonjour le forum,

un très leger soucis.
J'ai une macro qui supprime des soustotaux et une autre qui les remet. Cependant dans un cas comme un autre c'est hyper long. Je joint un bout de macro:

Range('A7:AL1000').Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38), Replace:=True, PageBreaks:=False, SummaryBelowData:=True


Range('A7:AL1000').Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38), Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Range('A1').Select



Une idée? Merci

 

[Dan]

Bonjour,

J'ai pas vérifié mais essaie ceci :

With Range('A7:AL1000')
.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33,
34, 35 _
, 36, 37, 38), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End with

Bon ap.

😉

 

[flo2002]

merci je vais tester