Macro pour fermer tous les sous totaux

[sophveil]

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 @+

 

[Orodreth]

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)

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

 

[Spitnolan08]

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) ?

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 ?

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 ?

 

[Orodreth]

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.

 

[sophveil]

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.

@+

 

[Orodreth]

Re : Macro pour fermer tous les sous totaux

re le fil.

Si tu veux de l'aide pour comprendre le code, n'hésite pas.

Cordialement
Thomas

 

[sophveil]

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 @+

 

[Spitnolan08]

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