• Initiateur de la discussion Initiateur de la discussion belyazid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

belyazid

Guest
salut le forum
dans ma pièce jointe j'ai un tableau simplifier car je peux avoir plus de lignes et plus de colonnes.
est ce possible qu'à l'aide d'une macro je pourrais faire des sous totaux suivant la colonne B c'est à dire pour s1,s2,s3....
et enfin le total
et merci d'avance
 

Pièces jointes

Re : sous_totaux

Salut,belyazid

Voici une macro adapter a ton cas :

Code:
Sub SousTotaux()
    Cells.Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

Cordialement
 

Pièces jointes

Re : sous_totaux

Salut,belyazid

Voici une macro adapter a ton cas :

Code:
Sub SousTotaux()
    Cells.Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

Cordialement

Edition: Salut BrunoM45
 
Re : sous_totaux

Ré,

écoute moi j'ai fait l'essai et j'ai filtrer,si les données reste les mêmes sans changement t'a pas besoin d'activer la macro, mais si des changements interviennent sur ta base c'est a dire des nouvelles saisies tu active la macro pour mettre ajour le calcule.

Cordialement
 
Re : sous_totaux

salut le forum,salut said
ma base va toujours changer suivant le département .donc pour un nouveau departement je pourrai avoir moins de secteurs(s1,s2.....) ou plus.
comment proceder pour une nouvelle base (comme l'exemple de la piece jointe)
et merci beaucoup.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
187
Réponses
14
Affichages
929
Réponses
10
Affichages
401
Réponses
16
Affichages
556
  • Question Question
Microsoft 365 formule addition
Réponses
4
Affichages
206
Réponses
12
Affichages
778
Retour