Suppression des anciens items dans un tableau croisé dynamique actualisé

[krysflore]

Bonsoir à toutes et à tous,

J'ai eu connaissance d'une macro qui permettrait de supprimer dans les boutons de champs les anciens items quand la base de données est modifiée. Or, je n'arrive pas à la faire fonctionner chez moi.

Ci-joint la macro que j'ai récupéré :
Sub supprimevieuxitemsTCD()
'macro de Dagleish adaptée par Dan pour Maguy53
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
pt.ManualUpdate = True
For Each pf In pt.VisibleFields
If pf.Name <> "Data" Then
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next pi
End If
Next pf
pt.ManualUpdate = False
pt.RefreshTable
Next pt
End Sub

Quelqu'un a-t-il eu le même problème ? Si oui comment faire pour que cela fonctionne ?

Merci de vos réponses.

 

[krysflore]

Re : Suppression des anciens items dans un tableau croisé dynamique actualisé

Finalement pour ceux qui seraient intéressés, j'ai trouvé cette réponse dans un fil

Sub NettoieItemTCD()
'macro de Debra Dalgleish
Dim ws As Worksheet, pt As PivotTable, pf As PivotField
Dim pi As PivotItem, 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
Next
Next
Next
Next
End Sub

Merci à tous ceux qui font vivre ce site et qui nous permettent de résoudre nos problèmes 🙂