Créer un plan en VBA

[patbart]

Bonjour,

J'ai fait une macro pour créé un plan dans un tableau mais je n'arrive pas à masquer les données du tableau pour laisser que les sous-totaux apparents. Je n'ai pas trouvé de solution existante dans le forum.

merci d'avance


debut de ma procedure
Range('B3:E200').Select

Selection.Subtotal GroupBy:=2,Function:=xlSum, TotalList:=Array(3, 4), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

 

[MichelXld]

bonjour

tu peux tester une procédure de ce type

Sheets('Feuil1').Outline.ShowLevels RowLevels:=2


bon apres midi
MichelXld

 

[patbart]

Bonjour MichelXld,

Merci pour ta procédure, elle fonctionne, j'ai juste eu besoin de mettre un 1 au lieu d'un 2.
C'est impec.
Merci d'avoir répondu aussi vite.

Bonne soirée.
Patbart