Autres Sous-total et array

michel1941 · 14 Juin 2023

Bonjour à tous,

J'ai une partie de code VBA qui fonctionne pour créer les sous-totaux des colonnes 2 à 122.
Est-il possible de simplifier la liste en donnant le limites de celle.çi . Içi 3 et 122.
C'est juste pour simplifier l'écriture, sans changer la formule.
Merci d'avance de votre aide.

sylvanu · 14 Juin 2023

Bonjour Michel,
Un fichier texte ! Pourquoi pas le fichier XL directement avec une petite explication ?
Si c'est pour faire des sous totaux en passant par du VBA, pourquoi ne pas faire faire au VBA directement les calculs ?
Evidemment cela dépend du contexte, mais souvent c'est faisable facilement.

michel1941 · 14 Juin 2023

Je pensais avoir été clair. Remplacer l'énumération des 120 colonnes avec quelque chose comme (3 to 122) dans mon exemple. Je ne veux rien changer d'autre dans ce qui fonctionne, juste simplifier l'écriture.

sylvanu · 14 Juin 2023

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.

michel1941 · 14 Juin 2023

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.

Je suis désolé si je t'ai vexé. Je cherchais seulement une réponse à un problème "cosmétique" dans un ensemble de 500 lignes.
Merci pour tes autres contributions.
Amicalement

sylvanu · 14 Juin 2023

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.

michel1941 · 14 Juin 2023

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.

J'ai testé mais l'erreur suivante apparaît à l'exécution
la méthode subtotal de la classe range a échoué.

sylvanu · 14 Juin 2023

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

michel1941 · 14 Juin 2023

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

michel1941 · 14 Juin 2023

Un grand merci. Avec quelques adaptation ça fait parfaitement l'affaire.
Amicalement

Autres Sous-total et array

michel1941

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

michel1941

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

michel1941

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

michel1941

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

michel1941

XLDnaute Nouveau

michel1941

XLDnaute Nouveau

Discussions similaires