Autres Sous-total et array

sylvanu à dit:

Excusez moi d'être aussi stupide, je posais juste une question.
Les contributeurs sont là bénévolement pour le plaisir, pas pour obéir.
Amicalement. 🙂

Cliquez pour agrandir...

sylvanu à dit:

Pas vexé, mais stupéfait.
A tester :

VB:

    Dim Tablo(1 To 120)
    For i = 1 To 120
        Tablo(i) = i + 2
    Next i

et ensuite :

Code:

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(Tablo), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

ou

Code:

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Tablo, Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Pas pu tester hors contexte du fichier.

Cliquez pour agrandir...

sylvanu à dit:

Comme de toute façon on n'aura aucun fichier test puisqu'à priori "Vous pensiez avoir été clair."
Un dernier essai en PJ pour clore mon intervention.
La macro proposée marche, à vous de mettre au point dans votre contexte.

VB:

Worksheets("Feuil1").Activate
Dim tablo(1 To 9)
For i = 1 To 9: tablo(i) = i: Next i
Range("1:10").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=tablo, Replace:=True, PageBreaks:=False, SummaryBelowData:=True

Regarde la pièce jointe 1172444

Cliquez pour agrandir...