[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.
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.
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.
Cette Q&R a été trouvée sur myDearFriend! Excel Pages : https://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=90