[TCD] Etiquettes persistantes ?
Après une mise à jour de la base et malgré l'actualisation du TCD, les étiquettes ne se mettent pas automatiquement à jour.
Par exemple, je dispose d'une base de données recensant les ventes par ville et type de magasin, base que je synthétise à l'aide d'un tableau croisé dynamique de ce type:
Après une mise à jour de ma base, je constate que je n'ai plus de ventes dans la ville de Dieppe, j'actualise mon TCD et la ville de Dieppe n'y apparaît pas:
Cependant, lorsque je regarde la liste déroulante du champ Ville, la ville de Dieppe apparaît toujours:
En effet, par défaut les TCD conservent l'historique des étiquettes, mais il est possible de modifier ce paramètre, via l'interface ou par macro.
Intervention manuelle par l'interface:
Depuis Excel 2007 l'option est disponible dans les options de configuration du TCD.
Sélectionner le TCD, clic droit, dans le menu contextuel choisir "Options du tableau croisé dynamique":
Sélectionner l'onglet "Données", puis dans la liste déroulante du nombre d'éléments à retenir, Choisir "Auncun" à la place de "Automatique" qui est sélectionné par défaut:
Terminer en actualisant le TCD.
Dans les versions antérieures cette option n'était pas présente, l'astuce consiste sur ces versions à
1 - Sortir le champ concerné du TCD
2 - Actualiser le tableau croisé dynamique
3 - Remettre le champ dans le TCD tel qu'il était.
En VBA (à partir d'Excel 2002)
Un exemple de code pour un tableau croisé dynamique nommé "TCD1" de la feuille active:
Sub EffaceEtiquette()
Dim Pvt As PivotTable
Set Pvt = ActiveSheet.PivotTables("TCD1")
Pvt.PivotCache.MissingItemsLimit = xlMissingItemsNone
End sub
A noter: il n'est nécessaire de lancer ce code qu'une seule fois, le TCD conserve son option.
|