Code VBA pour Afficher les détails d'une cellule

Version imprimable

Bonjour à la communauté

Dans mon fichier, j'utilise le groupement des colonnes (Données/Grouper et créer un plan/Grouper...).

L'utilisateur doit pouvoir lancer une macro pour aller directement à la colonne correspondant à son critère et pouvoir afficher les colonnes groupées.

J'ai le début de la macro, mais je bugue sur le code VBA pour afficher le détail de la zone qui contient un groupement (le but est de trouver la macro qui clique sur le signe + tout en haut de la seule colonne concernée et le signe + à l'extrême gauche de la seule ligne concernée dans une feuille qui contient des données groupées

Je vous remercie pour votre aide

Voici le début de ma macro. Je voudrais que l'utilisateur puisse voir la colonne 27 (qui est groupée avec la colonne 28)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub AfficherAE() Sheets("Organisation").Select Range("A3").Select ActiveSheet.ListObjects("Tbl_ListingO").Range.AutoFilter Field:=28, Criteria1:= _ "France Account Executives" 'Revenir colonne 1 ActiveWindow.ScrollColumn = 28 'Revenir ligne 2 ActiveWindow.ScrollRow = 2 End Sub

05/10/2022, 10h48
BENNASR

Bonjour
Personnellement je n'ai pas compris la demande
je crois que ce n'est pas difficile de cliquer chaque fois sur le + et sur le - pour automatiser cette tache !!!
En général tu peux démarrer l'enregistreur automatique du macro, faire la tache manuellement , arrêter l'enregistrement et tu aura un code
tu peux associer ce code à un événement : double clic par exemple
Si ma réponse ne t'aide pas à avancer dans ton projet je recommander d'expliquer davantage ce que tu cherches à faire avec un capture écran

hello,
dans le cas où l'on veut développer ou réduire tous les groupes d'une feuille ( ce qui ne semble pas être ton cas :aie: ) on peut utiliser la méthode ShowLevels

Outline.ShowLevels method (Excel)

Displays the specified number of row and/or column levels of an outline.
Syntax

expression.ShowLevels (RowLevels, ColumnLevels)
expression A variable that represents an Outline object.
Parameters

Name Required/Optional Data type Description

RowLevels Optional Variant Specifies the number of row levels of an outline to display. If the outline has fewer levels than the number specified, Microsoft Excel displays all the levels. If this argument is 0 (zero) or is omitted, no action is taken on rows.

ColumnLevels Optional Variant Specifies the number of column levels of an outline to display. If the outline has fewer levels than the number specified, Excel displays all the levels. If this argument is 0 (zero) or is omitted, no action is taken on columns.

Exemple d'utilisation pour une feuille avec 2 niveaux de plan en ligne et aussi en colonne :
Code:

1 2 3 4 5 6 7 Sub ReduireTout() Worksheets("Feuil1").Outline.ShowLevels rowLevels:=1, columnLevels:=1 End Sub Sub DevelopperTout() Worksheets("Feuil1").Outline.ShowLevels rowLevels:=2, columnLevels:=2 End Sub
Ami calmant, J.P

05/10/2022, 11h46
jurassic pork

Hello,

Citation:

Envoyé par BENNASR

En général tu peux démarrer l'enregistreur automatique du macro, faire la tache manuellement , arrêter l'enregistrement et tu aura un code
tu peux associer ce code à un événement : double clic par exemple

J'ai essayé ta suggestion mais hélas l'enregistreur n'enregistre rien sur clic sur le + ou le - des plans.
Sinon une autre idée pour développer un seul groupe parmi plusieurs est de jouer avec la propriété Hidden de ses lignes ou de ses colonnes.
Ami calmant, J.P
05/10/2022, 11h53
BENNASR
bonjour

Citation:

J'ai essayé ta suggestion mais hélas l'enregistreur n'enregistre rien sur clic sur le + ou le - des plans.
Sinon une autre idée est de jouer avec la propriété Hidden des lignes et des colonnes.

en cliquant sur le numéro de plan en haut à gauche l'enregistreur auto donne çà :
Code:

1 2 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
05/10/2022, 11h56
jurassic pork
Citation:
Envoyé par BENNASR

en cliquant sur le numéro de plan en haut à gauche l'enregistreur auto donne çà :

Code:

1 2 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
oui mais c'est pour l'ensemble des groupes cela ne fonctionne pas sur un groupe particulier (cliquer sur le + d'un groupe particulier)
05/10/2022, 16h05
jurassic pork

Bon j'ai trouvé un moyen de développer ou de réduire un groupe particulier : il faut utiliser la propriété showDetail

exemple pour réduire :

Code:

Rows(7).ShowDetail = False

exemple pour développer :

Code:

Rows(7).ShowDetail = True

Dans l'exemple le 7 représente la ligne où il y a le + du groupe
Pour les colonnes c'est le même principe.

Name	Required/Optional	Data type	Description
RowLevels	Optional	Variant	Specifies the number of row levels of an outline to display. If the outline has fewer levels than the number specified, Microsoft Excel displays all the levels. If this argument is 0 (zero) or is omitted, no action is taken on rows.
ColumnLevels	Optional	Variant	Specifies the number of column levels of an outline to display. If the outline has fewer levels than the number specified, Excel displays all the levels. If this argument is 0 (zero) or is omitted, no action is taken on columns.