Discussion :

[Ashireon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tedo01]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Outline.ShowLevels RowLevels:=8

[Ashireon]

effectivement c'est quasi instantané.

Merci bien

je mets en resolu