XL 2013 TCD passer sur tous les champs pour filtrer (masquer) les "vides"

Bonsoir,

Avez-vous essayé :
For Each pi in pf.PivotItems ?
Cdlt

Bonjour

En complément de la remarque de Gégé-45550

Sachant qu'on peut filtrer par segment, le VBA s'impose-t-il ?

Il y avait un bug, sur 2010 et 2013, peut-être corrigé par un SP depuis, qui plantait le filtrage par VBA sur les dates et les blank

Les vides ne sont-ils pas évitables dès la source ? C'est le cas dans 95% des cas

Bonjour et Merci à vous.
Gégé a trouvé, super !!! le code qui fonctionne ci-dessous.
Merci aussi Chris, effectivement je pourrai essayer de de ne pas prendre les "vides" dans la table qui sera utilisée par le TCD. Cela aurai été ma seconde source.

Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next

With ActiveSheet 'For Each ws In ActiveWorkbook.Worksheets
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
pf.ClearAllFilters
For Each pi In pf.PivotItems
If pi = "(blank)" Then pi.Visible = False
Next
Next
Next
End With