Discussion :

[antonysansh]

Bonjour à tous,

Apres avoir consulté mon ami Google et les différentes propriétés et méthodes de l'objet Outline, une question reste sans réponse : Comment récupérer le niveau du plan utilisé sur la feuille active ?

Je protège mes feuilles de cette façon :

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "Suivi de l'action*" Then sh.Protect Contents:=True, Password:="monMDP", UserInterfaceOnly:=True
    Next
End Sub

Les feuilles commençant par "Suivi de l'action" sont toutes tirées du même modelé qui comporte un plan automatique.
Comme les feuilles sont bloquées, les plans sont en fait inutilisable mis à part par macro donc j'aimerais juste une macro qui bascule du plan 1 au plan 2.
J'essaye de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Basculer_Plan()
    Dim sh As Worksheet: Set sh = ActiveSheet
    Dim i&: i = sh.Outline.SummaryRow
    Select Case i
        Case 1: sh.Outline.ShowLevels rowlevels:=2
        Case 2: sh.Outline.ShowLevels rowlevels:=1
    End Select
    Set sh = Nothing
End Sub

Mais sh.Outline.SummaryRow n'est pas du tout le niveau actif du plan (Ce n'est même pas de type numérique et je ne sais pas ce que c'est du coup ^^)

Voilà j'espère avoir été clair. Si l'un de vous sais s'il est possible de récupérer cet info ce serai génial !

Merci d'avance a tous

[parmi]

Bonjour,

Tu pourrais vérifier si une ligne est masquée ou non.
Ce bout de code va passer de masqué à affiché et vice versa
Dans mon test la ligne 4 me sert de repaire.
À modifier selon ton besoin.

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 ShowHide()
    Dim sh As Worksheet: Set sh = ActiveSheet
 
    If Masque Then
        sh.Outline.ShowLevels rowlevels:=2
    Else
        sh.Outline.ShowLevels rowlevels:=1
    End If
 
    Set sh = Nothing
End Sub
 
Function Masque()
    'Choisir une autre ligne au besoin
    If Rows(4).Hidden Then Masque = True
End Function

[antonysansh]

Merci pour ta réponse parmi.

C'est une solution plus qu'acceptable, il me suffit de remplacer la ligne 4 par une ligne faisant partie d'un groupe.
Dans l'urgence j'ai opté pour 2 boutons, un pour masquer et un pour afficher.
Je vais pouvoir passer à un seul.

Merci bien

En tout cas c'est quand même dommage qu'il n'existe pas de propriété par exemple Level sur l'objet Ontline

[vinc_bilb]

Bonjour,

Voir (?)https://www.relken.com/code-example/...el-current-row
ou
http://www.mrexcel.com/forum/excel-q...s-columns.html

peut-être ....

[antonysansh]

Merci pour les sources vinc_bilb,

J'ai pu contourner mon probleme mais Level = cCell.Rows.OutlineLevel couplé avec cCell.Rows.hidden peut être intéressant