[XL-2003] Tableau dynamique colonne fixe

[tienne1]

Bonjour,

Je bloque sur un code afin de fixer les colonnes d'un tableau dynamique de fait que lorsqu'on filtre et que l'une des colonnes ne contient pas de valeurs, on est quand meme la colonne affichee.
Voici mon code:

Sub test()
Dim p As PivotItem
Application.ScreenUpdating = False
Set PivotTableIndic = ThisWorkbook.Worksheets("TableIndic").PivotTables("PivotTableIndic")
Set PivotTableRatio = ThisWorkbook.Worksheets("Prediction").PivotTables("PivotTableRatio")
 
With PivotTableRatio.PivotFields("movement Type")
    For Each p In .PivotItems
    If p.Value = "(blank)" Then p.Visible = False Else p.Visible = True
   
    Next p
End With
Application.ScreenUpdating = True
End Sub
 

Merci pour votre aide.

[aalex_38]

Je ne m'y connait pas trop en TCD, ne pourrait tu pas jouer sur les valeurs Hiden plutot que visible ?

Du style :

Dim Table1 As PivotTable
Table1.HiddenFields(1) = False