Outline hidden line

Bonjour,

j'ai un fichier qui contient une colonne définissant un flag (0/1) .

j'ai écrit une macro qui parcours toute la colonne et qui fait un rows.hidden sur toutes les lignes qui ont le flag=0.

mon problème est que mon fichier contient des Outline avec subtotal. et quand je clique sur expand/collapse, toutes les lignes réapparaissent.

est ce qu il existe un moyen d'annuler ce comportement et de maintenir les lignes cachées ou suis-je obligé de tracker l'Event d'expand/collapse pour recacher toutes mes lignes a chaque fois.


merci pour vos conseils ou votre aide

Cyborg PA

eh eh ,

un an après même problème et personne à répondu à ma question ...

mais comme j'avais trouvé et RE-trouvé la solution , cette fois je vous la donne.

quand on fixe la taille d'une ligne à 0 avec la commande suivante :

Code:

---

Cells(i, j).RowHeight = 0

---

Excel ne change pas la taille de la ligne mais la cache .

idem en faisant :

Code:

---

Cells(i, j).EntireRow.Hidden = True

---

ce qui fait que lorsqu'on EXPAND les OUTLINE sur le coté (niveau des SUBTOTAL)

la ligne reprend sa taille qu'elle avait avant d'avoir fixé à 0

si on veut cacher la ligne et qu'elle ne reaparaisse pas il faut faire :

Code:

---

Cells(i, j).RowHeight = 0.1

---

Pardon Somnix,
Un an! aprés et personne ne donne une réponse à Somnix, mais c'est de la honte :oops: :D
je suis vraiment navré Somnix.
Allez, dites-moi, les flags sont des formules ou bien des valeurs que vous entrez vous même manuellement?

Si c'est le cas et que vous les tapez à la main, il serait trés utile d'automatiser cette tache à l'aide une Checkbox ou d'un bouton Bascule (Toggle Button) comme suite:

1]-Insérer le bouton bascule ou la checkbox au dessus du tableau
Le controle devrait analyser toutes les cellules de la plage qui contient les valeurs des flag, puis detecte celle qui premiérement ne sont pas des formules, et deuxiémement celles dont les valeurs = 0
Donc si c'est un Boutton Bascule vous fairiez par exemple:

Code:

---

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

Private Sub ToggleButton1_Click() Dim rng As Range Application.ScreenUpdating = False If ToggleButton1.Value = True Then For Each rng In Range("A2:A300").Cells If Not rng.HasFormula And rng.Value = 0 Then rng.EntireRow.Hidden = True End If Next Else For Each rng In Range("A2:A300").Cells If Not rng.HasFormula And rng.Value = 0 Then rng.EntireRow.Hidden = False End If Next End If Application.ScreenUpdating = True End Sub

---

S'il s'agit d'une Checkbox alors:

Code:

---

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

Private Sub CheckBox1_Click() Dim rng As Range Application.ScreenUpdating = False If CheckBox1.Value = True Then For Each rng In Range("A2:A300").Cells If Not rng.HasFormula And rng.Value = 0 Then rng.EntireRow.Hidden = True End If Next Else For Each rng In Range("A2:A300").Cells If Not rng.HasFormula And rng.Value = 0 Then rng.EntireRow.Hidden = False End If Next End If Application.ScreenUpdating = True End Sub

---

N'hésitez pas pour demander plus d'explications et d'idées.

Cordialement
Karim

Pardon,
Les codes si-desssus seraient aussi valides, si les valeurs du Flag sont recupérées à partir d'une liste de validation, ou à partir d'une valeur d'un autre objet tel qu'un combobox, Textbox, Spinbutton, etc ...
Merci.

Karim

Somnix,
Vous savez!,
en disant Merci "tout court" aprés avoir marqué "résolu" à votre probléme, on aurait compris que celà aurait marché, et que les autres pourront essayer le code.

Bonne Journée. :)

Karim