Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour fermer tous les sous totaux

Créer une discussion

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 !

S'inscrire
S

sophveil

XLDnaute Nouveau
Bonjour le forum,

Hé oui j'y prend goût 😀

Alors ma question du jour :

J'ai une feuille où par macro je fais des sous totaux ce qui insère une ligne et cacule une somme à chaque changement d'article, rien de plus normal et cela me convient.

Le problème je dois récupérer la valeur de ces sous totaux.
Pour des raisons de simplicité car (les sous-totaux),sont nombreux (à la main c'est trop long : 20 répartis sur les 1820 lignes de mafeuille). Je cherche à les fermer automatiquement par une macro afin de n'avoir qu'eux de visible.

J'ai tenté l'enregistrement d'une macro pour analyser le code mais je ne trouve pas la solution.

Dans le code il y a : ActiveWindow.SmallScroll Down:=666

ou 666 correspond au n° de ligne d'un des sous-totaux.

Quel est le paramétre pour les fermer tous d'un coup ( pas les supprimer ni
supprimer le plan) ?

Je ne doute pas de votre réponse 🙄

Pour finir y a t-il sur le net un endroit ou trouver les commandes vba excel expliquées en francais ?

Merci encore au forum et @+
 
Trier par date Trier par votes
Re : Macro pour fermer tous les sous totaux

Bonjour SophVeil

Je ne comprend pas très bien ce que tu entends par "fermer".

Si tu veux récupérer la somme de tes sous-totaux, voici un code qui pourrait t'intéresser.
(hypothèse 1: tu pars de la ligne 1, et de la colonne A; hypothèse 2: tes titres "sous-totaux" sont indiqués en colonne A; hypothèse 3: la valeur de ton sous-total est un colonne B)

Code: 
Sub FaireCumul
Dim Cumul as integer/long/double [COLOR="Green"](à toi de voir celui qui convient)[/COLOR]
Cumul = 0
Dim i as integer
do while cells([B]i,1[/B]).value <= Range("[B]A65536[/B]").end(xlup).row
    If cells([B]i,1[/B]).value = "[B]Sous-total[/B]" then
             Cumul = Cumul + cells([B]i,2[/B]).value
    end if
loop
end sub

Ce que j'ai marqué en gras dans le code sont les éléments que tu peux adapter.

Cordialement,
Thomas
 
Vote positif 0 Vote négatif
Re : Macro pour fermer tous les sous totaux

Bonjour
Je cherche à les fermer automatiquement par une macro afin de n'avoir qu'eux de visible.

Quel est le paramétre pour les fermer tous d'un coup ( pas les supprimer ni
supprimer le plan) ?
Cliquez pour agrandir...
Il faudrait déjà savoir comment tu les renseigne... Et aussi ce que signifie les fermer en ayant qu'eux de visible 😕

Un petit fichier aiderait surement la compréhension

Pour finir y a t-il sur le net un endroit ou trouver les commandes vba excel expliquées en francais ?
Cliquez pour agrandir...
Déjà dans le Wiki (Bouton en haut à droite de ce site)

Cordialement

Edit : Pas vu Orodreth... Mais ce fil aurait il un rapport avec un autre pour que tu aies un bout de code ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro pour fermer tous les sous totaux

Re le fil, Salut Spitnolan.

😕
Non, c'est une sub que j'ai écris ici, par rapport au sujet, sans la recopier quelque part.

Maintenant, c'est une sub tout ce qu'il y a de plus classique. Des comme ça sur le forum, il doit y en avoir des centaines.
 
Vote positif 0 Vote négatif
Re : Macro pour fermer tous les sous totaux

Re et merci pour votre interet.

Je vous joins deux petit fichier qui vous montrerons ce que je veux obtenir par macro.

Merci pour wiki je n'avais pas vu 🙁

Je vais regarder ceci de prés :

Sub FaireCumul
Dim Cumul as integer/long/double (à toi de voir celui qui convient)
Cumul = 0
Dim i as integer
do while cells(i,1).value <= Range("A65536").end(xlup).row
If cells(i,1).value = "Sous-total" then
Cumul = Cumul + cells(i,2).value
end if
loop
end sub


et essayer de comprendre.

@+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro pour fermer tous les sous totaux

re,

Je n'ai pas encore tout compris mais j'ai trouvé 🙂

Pour ceux que ca interesse :

ActiveSheet.Outline.ShowLevels RowLevels:=3
ActiveSheet.Outline.ShowLevels RowLevels:=2

2 ferme les sous-totaux
3 ouvre les sous-totaux

Il y a aussi le 1 qui ferme tout et n'affiche que le total général.

Je continu la constitution de mon classeur et ne manquerais sans doute pas de faire encore appel au savoir du forum.

Merci encore et @+
 
Vote positif 0 Vote négatif
Re : Macro pour fermer tous les sous totaux

Re,

Eh bien merci Sophveil de l'info...🙂
et des fichiers joints qui permettent de comprendre ce qu'était l'ouverture et la fermeture des soustotaux...😉

Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

P
  • Question Question
Microsoft 365 Supprimer sous-totaux négatifs dans une liste
Réponses
10
Affichages
677
djidji59430
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
726
MBEPID
M
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
642
fanch55
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
732
MarineU
M
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
T
  • Question Question
XL 2016 La macro efface les formules
Réponses
3
Affichages
621
JHA
J
A
  • Question Question
XL 2016 Sous-totaux ou WorksheetFunction.Sum
Réponses
2
Affichages
797
Aldonanou
A
C
  • Question Question
Microsoft 365 suppression des lignes d'un sous-total à 0
Réponses
6
Affichages
805
job75
B
  • Question Question
XL 2013 Exécuter des sous totaux par macro
Réponses
7
Affichages
988
Staple1600
  • Résolu(e)
XL 2013 Une macro pour tous les classeurs à leur ouverture
Réponses
4
Affichages
580
chantalou78
M
  • Résolu(e)
XL 2013 Fermer tous les fichiers ouverts sauf le fichier actif et Personnal
2
Réponses
19
Affichages
3 K
Merlin258413
M
  • Question Question
XL 2010 Calcul de sous-totaux par le haut d'une liste de données
Réponses
3
Affichages
821
cp4
P
  • Question Question
Microsoft 365 [VBA] Sous-totaux selon couleurs des cellules au-dessus
Réponses
10
Affichages
1 K
Dudu2
  • Résolu(e)
XL 2010 Masquer Ligne des totaux dans tableau classique
Réponses
6
Affichages
1 K
Hasco
K
  • Question Question
Google Sheets Aide pour l'élaboration d'une macro sous google sheet
Réponses
2
Affichages
1 K
Kiritora
K
F
  • Résolu(e)
Microsoft 365 Macro pour copier des lignes et les coller à l'emplacement de la cellule sélectionnée
Réponses
2
Affichages
1 K
Fanou44
F
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
S
  • Question Question
Microsoft 365 Macro pour insérer une ligne avec conservation de formules et MFC
Réponses
3
Affichages
840
sanae_J
S
B
  • Résolu(e)
XL 2019 Appliquer une macro à plusieurs fichiers d'un dossier - Débogage ?
Réponses
9
Affichages
1 K
Bastien43
B
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…