[NON RESOLU] groupement de lignes (plan)

Bonjour à tous,


Je me permets de reposter mon problème car il reste pour l'instant sans
solution, et ce malgré l'avancement réel qu'a présenté l'ai de de François,
que je remercie.




Je souhaiterais créer un plan sur un fichier de type
http://cjoint.com/?dittoKPr4O respectant les critères suivants :


1) lorsqu'il est refermé, je n'ai que le compte leader et les comptes de
Niv2 qui soient visibles ;
2) lorsqu'il est déplié sur le 2ème niveau (click du "2" en haut à gauche),
j'ai le leader, les comptes de niv 2 et les comptes de niv 3 qui sont
visibles ;
3) lorsqu'il est déplié sur le 3ème niveau (click "3"), j'ai le leader, les
comptes de niv 2, 3 et 4 qui sont visibles.
4) enfin, lorsqu'il est déplié complètement (click "4"), j'ai tous les
comptes de
la hiérarchie.

Et ce dans tous les cas de figure (que des comptes de niv supérieur
s'interposent ou non entre des comptes de niv inférieur).


J'avais tout d'abord créé la macro suivante, mais ne fonctionne pas
totalement :

Sub MacroRegroupement()




Range("A65535").End(xlUp).Select

If ActiveCell.Offset(0, 2) = "" Then
Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0,
2).End(xlUp).Offset(1, 0)).EntireRow.Select
Selection.Rows.Group
Else
End If



Do While ActiveCell.Offset(0, 2).End(xlUp).Row > Range("A6").Row

If ActiveCell.Offset(-2, 2) = "" Then
Range(ActiveCell.Offset(-2, 0), ActiveCell.Offset(-1,
2).End(xlUp).Offset(1, 0)).EntireRow.Select
Selection.Rows.Group

Else
Range(ActiveCell.Offset(-1, 2).End(xlUp).Offset(-1, 0),
ActiveCell.Offset(-1, 2).End(xlUp).End(xlUp).Offset(1, 0)).EntireRow.Select
Selection.Rows.Group

End If
Loop



'---------------------------------------------

Range("A65535").End(xlUp).Select

If ActiveCell.Offset(0, 3) = "" Then

If ActiveCell.Offset(-1, 2).End(xlUp).Row > ActiveCell.Offset(-1,
3).End(xlUp).Row Then
ActiveCell.Offset(0, 3).End(xlUp).Offset(1, -3).Select

Else
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0,
3).End(xlUp).Offset(1, 0)).EntireRow.Select
Selection.Rows.Group

End If

Else

Else
ActiveCell.Offset(0, 3).End(xlUp).Offset(1, -3).Select

End If




Do While ActiveCell.Offset(0, 3).End(xlUp).Row > Range("D6").Row

If ActiveCell.Offset(-2, 3) = "" Then

If ActiveCell.Offset(0, 2).End(xlUp).Row > ActiveCell.Offset(0,
3).End(xlUp).Row Then
ActiveCell.Offset(-1, 3).End(xlUp).Offset(1, -3).Select

Else
Range(ActiveCell.Offset(-2, 0), ActiveCell.Offset(-1,
3).End(xlUp).Offset(1, 0)).EntireRow.Select
Selection.Rows.Group

End If
Else

ActiveCell.Offset(-1, 3).End(xlUp).Offset(1, -3).Select

End If

Loop



ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1


End Sub





Puis en suivant les conseils de François, j'ai écrit la macro suivante :



Colonne = "C"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 6
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop

Colonne = "D"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 6
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop




=> J'arrive à un résultat intéressant pas très éloigné de ce que
j'aimerais obtenir :

- Mon point N° 2 est bien atteint (les comptes de Niv 3 sont groupés entre
eux).
- Par contre, mon point N° 1 n'est pas atteint : la dernière ligne est
regroupée directement avec la ligne 6. Je n'ai donc pas les comptes de Niv
2 groupés entre eux.




Enfin, si j'ajoute le code :


Colonne = "E"
Range(Colonne & Range("A65535").End(xlUp).Row).Select
Do While ActiveCell.Row > 6
If ActiveCell = "" Then
Range(ActiveCell, ActiveCell.End(xlUp).Offset(1, 0)).EntireRow.Activate
Selection.Group
Else
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.End(xlUp).Activate
End If
End If
Range(Colonne & ActiveCell.Offset(-1, 0).Row).Activate
Loop



=> J'obtiens mon point 3 (regroupement des comptes de niv 4 avec click
"3" ), mais mon point 2 a disparu et le point 1 reste non atteint (cette
fois-ci la dernière ligne est groupée avec la ligne 5).


Bref, je n'ai qu'une partie de la solution mais pas la solution dans sa
globalité.


En espérant que tout ce que j'écris est clair et compréhensible...


Merci d'avance pour votre aide !

JF