Discussion :

[Dr_shaman]

Bonjour, je voudrai faire une macro Excel pour que quand un groupement de cellule (colonnes) est réduite, un autre groupement de cellule, cette foi des lignes ce réduisent automatiquement en même temps.

Quelque chose du genre :

Code :

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

1
2
3
If  ActiveSheet.Outline.ShowLevels RowLevels:=1 then
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Endif

Mais je ne c’est pas comment capture l’événement de réduction du groupe de colonnes. Et je ne c’est pas comment faire mon if (celui que j’ai donné ne marche pas bien sur, c’était juste pour expliquer ce que je voudrais faire).

Merci bonne journée.

[Fvandermeulen]

Bonjour,
N'est-ce pas un truc du genre que tu cherches?
Reste à voir comment tu veux le déclencher, je suppose que le mieux sera sur un évènement de feuille avec un Target sur les colonnes intéressées.

Code :

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

1
2
3
   If Columns("A:C").ColumnWidth = 5 Then
    Rows("1:10").RowHeight = 10
   End If

Bonne continuation

[Dr_shaman]

Bonjour Fvandermeulen.

Je dirai ouais mais non ! Je voie ce que tu veux dire, mais le problème c'est que le tableau est dynamique et voué à évoluer. C’est pour ça que j'utilise le groupement de colonnes et de lignes (fonction qui est dans "données--> Grouper») j'ai donc des groupe de ligne et des groupe de colonnes. Sur la capture 1 tu peu voire les groupe ouvert, et sur la capture 2 les groupements sont fermé, moi j’aimerai que les lignes ce ferme en même temps que les colonnes (un seul click).

Merci

[Fvandermeulen]

Re,
Désolé j'étais à côté, j'aurais du comprendre avec ton exemple de code
Dans ce cas, je crois que c'est une ligne du genre qui peut de dépanner:

Code :

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

Rows(2).ShowDetail = True

Dans cet exemple le group qui contient la ligne 2 sera visible.

Reste à voir comment déclencher, vérifier et mettre les variables...

A+

[Dr_shaman]

bonjour,

"Reste à voir comment déclencher"

il est la tout mon problème.
par ce que pour cacher les lignes j'y arrive avec
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
1 == cacher
2 == moiter des lignes cacher
3 == rien n'est cacher

Apprêt je peu me baser sur une colonne qui apparait en 2 et 3 mais pas en 1
donc ci je fais :

Code :

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

1
2
3
If Rows(10).ShowDetail = false then
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Endif

Comme sa ci la colonne est cacher mes lignes à cacher le seront aussi.
Mais je ne c'est pas comment déclencher cette événement ?

Merci

[Fvandermeulen]

Salut,
Je crois que tu dois associer ça à ta feuille, tu as plusieurs possibilité, en cas de Calcul, de déplacement,... je te laisse voir.
Par contre je crois pas que le fait de 'cacher' en tant que tel peut servir de déclencheur.
A+