Développer/réduire tous les plans d'une feuille

[Chris]

Bjr,

après qq heures la tete entre les mains, limite migraine je me décide à aller voir les pro ...

Voilà la question :

Sur une feuille contenant plusieurs plans (lignes groupées), indépendant les uns des autres, verriez vous une méthode pour développer (et réduire) tous les plans en même temps, en cliquant sur un seul bouton (du type "développer tout", ou "réduire tout".

Si en plus ca marchait sans avoir à spécifier un à un tous les plans contenus dans la feuille ce serait grandiose !

merci pour toute info sur le sujet

a+

 

[andré]

Salut Chris,

Si j'ai bien compris ta question : grouper tous les plans sous un plan général et le nouveau bouton "1" ouvre et ferme tout.

Ândré.

 

[jon]

mon msg semble ne pas être passé

on error resume next
for i=1 to 50
activesheet.outline.showlevels .... :=i
next i

il y a une syntaxe xl4 générée par l'enregistreur mais je n'ai pu la faire fonctionner

 

[Chris]

oui andré c'est bien cela...

j'essaye la méthode de jon

je vous tiens au courant

merci à tous les 2

a+

ChR

 

[Chris]

je confirme la méthode proposée par Jon fonctionne très bien pour développer tous les niveaux de plans contenus dans une feuille

très bonne idée le coup du "on error resume" !

sub develop_plan()
on error resume next
for i=1 to 50
' 50 ... c peut etre beaucoup !
activesheet.outline.showlevels i
next i
end sub


sub reduire_plan()
activesheet.outline.showlevels 1
end sub

merci a+

ChR