XL 2016 Masquer lignes (avec Grouper/Dissocier)

[midovic]

Bonjour,

Je souhaite une solution pour mon fichier ci-joint. Je vous en remercie par avance!

En fait, e souhaite masquer les lignes dont la somme de la ligne est égale à 0.
J'ai réussi à trouver une macro dans le forum (masquer/afficher) qui fonctionne.
Mon problème est le suivant :
1-Les lignes ont une structure plan (Grouper/Dissocier)
2-Quand j'utilise la macro pour masquer les lignes ca fonctionne, par contre, quand j'utilise tout de suite après les boutons du plan (+ / - / 1 / 2 / ... ) les lignes masquées réapparaissent!
Y a-t-il un moyen pour garder ces lignes masquées même si j'utilise les boutons plan (grouper / dissocier)?

Encore merci par avance.

 

[job75]

Bonjour midovic et bienvenue,

Le bouton soit s'adapter à l'organisation du plan donc utiliser :

Private Sub CommandButton1_Click()
ActiveSheet.Outline.ShowLevels RowLevels:=IIf(CommandButton1.Caption = "Masquer", 1, 3)
CommandButton1.Caption = IIf(CommandButton1.Caption = "Masquer", "Afficher", "Masquer")
End Sub

A+

 

[midovic]

Bonjour midovic et bienvenue,

Le bouton soit s'adapter à l'organisation du plan donc utiliser :

Private Sub CommandButton1_Click()
ActiveSheet.Outline.ShowLevels RowLevels:=IIf(CommandButton1.Caption = "Masquer", 1, 3)
CommandButton1.Caption = IIf(CommandButton1.Caption = "Masquer", "Afficher", "Masquer")
End Sub

A+

merci beaucoup Job75!
En effet, cette macro permet aussi de masquer les lignes!

Par contre, je pense que j'ai mal formulé ma demande initiale...
En fait, quand j'utilise la macro, les lignes sont bien masquées (lignes avec somme 0). Jusqu'à là tout va bien.
Mon problème : quand je veux voir le détail d'une ligne groupée en particulier, quand je déplie le bouton + les lignes 0 réapparaissent ! donc, comment je peux faire pour que c'est lignes à 0 restent masquer?

 

[Phil69970]

Bonjour à tous

@midovic

Mon problème : quand je veux voir le détail d'une ligne groupée en particulier, quand je déplie le bouton + les lignes 0 réapparaissent ! donc, comment je peux faire pour que c'est lignes à 0 restent masquer?

Je suis pas sur que cela soit possible .

 

[midovic]

Bonjour à tous

@midovic


Je suis pas sur que cela soit possible .

merci Phil69970!
C'est ce que je me disais aussi!

 

[job75]

Si le plan vous gêne eh bien ne l'utilisez pas.

 

[midovic]

Si le plan vous gêne eh bien ne l'utilisez pas.

Non je ne peux pas ne peux l'utiliser !
Le plan je l'utilise pour l'affichage et ensuite la diffusion à d'autres personnes...

 

[job75]

Si le plan vous gêne eh bien ne l'utilisez pas.

Voyez le fichier joint et cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target(1) <> "Afficher" Then Exit Sub
Cancel = True
While Target(2, 1).Text = "0"
    Target(2, 1).EntireRow.Hidden = Not Target(2, 1).EntireRow.Hidden
    Set Target = Target(2, 1)
Wend
End Sub

Cliquez sur le bouton "Masquer" puis double-clic sur "Afficher" en colonne B.

 

[midovic]

Voyez le fichier joint et cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target(1) <> "Afficher" Then Exit Sub
Cancel = True
While Target(2, 1).Text = "0"
    Target(2, 1).EntireRow.Hidden = Not Target(2, 1).EntireRow.Hidden
    Set Target = Target(2, 1)
Wend
End Sub

Cliquez sur le bouton "Masquer" puis double-clic sur "Afficher" en colonne B.

C'est très bien comme solution
Merci beaucoup job75!