Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sous totaux

Sous totaux

3 réponses
Avatar
louboul
bonsoir

je dois faire des sous totaux tous les mois.
La zone varie tous les mois de 100 =E0 700 lignes

comment ecrire le code qui remplace Range("A8:F700" ) dans mon exemple
ci dessous:


Range("A8:F700" ).Subtotal GroupBy:=3D1, Function:=3DxlSum,
TotalList:=3DArray(2, 3, 4, 5, _
6), Replace:=3DTrue, PageBreaks:=3DFalse, SummaryBelowData:=3DTrue
=20
=20
merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonsoir.
Définis une plage dynamique :
Insertion / Nom / Définir
Nom : "Plage" (par exemple)
Fait référence à :
ÞCALER(Feuil3!$A$8:$F$8;;;NBVAL(Feuil3!$A$8:$A$60000))
Utilise ensuite :

Range("Plage" ).Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, _
6), Replace:=True, PageBreaks:úlse, SummaryBelowData:=True

Cordialement.
Daniel
"louboul" a écrit dans le message de news:

bonsoir

je dois faire des sous totaux tous les mois.
La zone varie tous les mois de 100 à 700 lignes

comment ecrire le code qui remplace Range("A8:F700" ) dans mon exemple
ci dessous:


Range("A8:F700" ).Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, _
6), Replace:=True, PageBreaks:úlse, SummaryBelowData:=True


merci
Avatar
louboul
j'ai omis de préciser que je veux l'écrire en VBA!!!
Quel serait le code?
merci

Bonsoir.
Définis une plage dynamique :
Insertion / Nom / Définir
Nom : "Plage" (par exemple)
Fait référence à :
ÞCALER(Feuil3!$A$8:$F$8;;;NBVAL(Feuil3!$A$8:$A$60000))
Utilise ensuite :

Range("Plage" ).Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, _
6), Replace:=True, PageBreaks:úlse, SummaryBelowData:=True

Cordialement.
Daniel
"louboul" a écrit dans le message de news:

bonsoir

je dois faire des sous totaux tous les mois.
La zone varie tous les mois de 100 à 700 lignes

comment ecrire le code qui remplace Range("A8:F700" ) dans mon exemple
ci dessous:


Range("A8:F700" ).Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, _
6), Replace:=True, PageBreaks:úlse, SummaryBelowData:=True


merci


Avatar
Daniel
Bonjour.
La définition de plage est dynamique. Elle se fait une fois pour toute et
s'adapte au changement de taille. Il n'a donc aucun intérêt à la mettre dans
une macro.
Cordialement.
Daniel
"louboul" a écrit dans le message de news:

j'ai omis de préciser que je veux l'écrire en VBA!!!
Quel serait le code?
merci

Bonsoir.
Définis une plage dynamique :
Insertion / Nom / Définir
Nom : "Plage" (par exemple)
Fait référence à :
ÞCALER(Feuil3!$A$8:$F$8;;;NBVAL(Feuil3!$A$8:$A$60000))
Utilise ensuite :

Range("Plage" ).Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, _
6), Replace:=True, PageBreaks:úlse, SummaryBelowData:=True

Cordialement.
Daniel
"louboul" a écrit dans le message de news:

bonsoir

je dois faire des sous totaux tous les mois.
La zone varie tous les mois de 100 à 700 lignes

comment ecrire le code qui remplace Range("A8:F700" ) dans mon exemple
ci dessous:


Range("A8:F700" ).Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, _
6), Replace:=True, PageBreaks:úlse, SummaryBelowData:=True


merci