XL 2013 Décaler TCD

Comfortably_Numb · 21 Février 2020

Bonjour à tous,

Je travaille sur l'élaboration d'un rapport qui serait composé de 9 TCD.
La problématique à laquelle je fais face consiste à faire en sorte que lorsqu'un filtre est appliqué, ce qui sera le cas dans chaque TCD, le TCD qui se trouve en dessous du premier (et ainsi de suite), soit "collé" au précédent.

En P.J. un exemple de deux TCD réalisés l'un à la suite de l'autre.
Existe-il une solution (macro ?) pour faire en sorte qu'en filtrant le premier, sous ce premier TCD il n'y ait pas de blanc ?

Merci pour votre aide

danielco · 24 Février 2020

Bonjour,

Mets cette macro dans le module de la feuille "Feuil3" :

VB:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
  Rows.Hidden = False
  Rows(Application.Min(Target.TableRange2.Rows.Count + 1, 28) & ":28").Hidden = True
End Sub

Cordialement.

Daniel

XL 2013 Décaler TCD

Comfortably_Numb

XLDnaute Junior

Pièces jointes

danielco

XLDnaute Accro

Discussions similaires