Discussion :

[isma616]

Bonjours,

Voilà mon petit problème j'ai un tableau croisé dynamique par rapport à une base de données qui évolue (suppression et ajout de données). Le hic c'est que les filtres gardent en mémoire toutes les possibilités qui ont existé pour une valeur donnée. Par exemple imaginons que je rajoute la valeur 130 au numéro d'acheteur et que deux jours après je supprime du tableau la ligne qui le contenait (donc 130 n'apparaît plus dans ma base de données) si je mets à jour mon tableau avec tout mettre à jour ou simplement mettre à jour, quand je resélectionne les numéros d'acheteur pour faire un tri le 130 existera toujours dans la liste.

J'aimerai le faire disparaitre.


Merci d'avance

[78chris]

Bonjour

C'est effectivement un bug connu d'Excel.

Il y a une macro pour faire le ménage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub deleteOldItemsWB()
'gets rid of unused items in pivotTable
'Debra Dalgleish - 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

[isma616]

Merci pour cette réponse elle marche

[banane87]

Bonjour,

Merci pour cette réponse efficace!
Juste une petite question au passage, est-il possible d'aller plus vite dans le traitement? Mon PC met environ 2min30 pour faire cette mise à jour.
Sachant que j'ai un TCD et un GCD et qu'il y a pas mal de rubriques.
J'ai déjà passé la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

mais l'amélioration n'est pas sensible.
Une piste?

Merci.

[78chris]

Bonjour

Peux-tu préciser ta version Excel.

Dans 2007 et 2010 il y a une case à cocher et le ménage se fait tout seul : options du TCD, Onglet Données, Nombre d'éléments à retenir par champ : Aucun puis actualiser le TCD.


Sinon sur versions antérieures il y a un autre code plus simple qui est l’équivalent de cette manip. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Menage()
 
Dim Pvt As PivotTable
  Set Pvt = ActiveSheet.PivotTables("TCD1")
  Pvt.PivotCache.MissingItemsLimit = xlMissingItemsNone
 
End sub

A adapter en boucle si nécessaire.

[banane87]

Bonjour Chris,

Merci beaucoup pour ta réponse rapide! Je suis sous excel 2007.
La solution fonctionne parfaitement!