Bonjour,
il y a un exemple d'épuration de la liste pivot à cette adresse
http://www.excelabo.net/excel/tcddiv.php
Etiquettes persistantes
J'ai crée un TCD avec en ligne les noms en colonne les mois et comme résultat le nombre d'heures. Lorsque que dans ma base je supprime toutes les lignes ayant le même NOM et que j'actualise le TCD, le NOM n'apparaît plus, mais par contre il reste toujours en mémoire dans la liste déroulante NOM du TCD.
Pour tenir compte des champs calculés ne pas oublier de rafraîchir le TCD avant de savoir s'il
faut détruire.
'
'======================
Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' based on MSKB (202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
Next
Next
Next
End Sub
et cela fonctionne!
GIBI