XL 2013 Décaler TCD

[Comfortably_Numb]

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]

Bonjour,

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

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