Discussion :

[somnix]

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

[somnix]

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 :

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

Cells(i, j).RowHeight = 0

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

idem en faisant :

Code :

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

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 :

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

Cells(i, j).RowHeight = 0.1

[XLRATOR]

Pardon Somnix,
Un an! aprés et personne ne donne une réponse à Somnix, mais c'est de la honte
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 :

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
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 :

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
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