plan tout deployé

Bonjour,

Suite a un petit soucis d'un collegue qui fait des plans dans ses fichiers excel.
Le soucis étant le suivant il charge une combobox d'un tableau
Cependant il a un plan et quand ce dernier est retracté sur le coté de la fiche et bien la combobox manque des iterations ( les lignes cachés par le plan)

Donc j'ai fait une petite macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Bouton12_Cliquer() Dim X As Integer X = 0 Dim R As Object   For Each R In ActiveSheet.Rows If R.OutlineLevel > X Then X = R.OutlineLevel End If Next   ActiveSheet.Outline.ShowLevels RowLevels:=X       End Sub

---

Cependant scanner toute la feuille pour retrouver la plus grande profondeur de plan utilisé prends quelques secondes.

Y a t il une méthode plus rapide ( je pense que oui) car dans excel il y a un bouton tout déployé mais l'enregistreur de macro ne m'enregistre pas la commande vba.


Merci

Bonjour,
Le niveau maximum de plan étant 8, la ligne suivante devrait suffire :

Code:

---

ActiveSheet.Outline.ShowLevels RowLevels:=8

---

effectivement c'est quasi instantané.

Merci bien

je mets en resolu