Bonjour à tous,
Je fais un petit appel à l’équipe car je suis bloqué devant un problème.
Je voudrais mettre à jour un filtre de TCD lors du changement de valeur dans une cellule.
Via VBA, l’utilisateur choisi dans une liste et son choix est collé dans un cellule.
De là, une formule Index+equiv rapatrie la valeur (CT_Num en cellule “B19”) qui doit être le filtre du TCD.
J’ai consulté plusieurs site solutions etc mais je suis toujours bloqué.
(Notamment l’article:
https://www.lecfomasque.com/controler-plusieurs-tableaux-croises-dynamiques-avec-un-seul-menu-deroulant/)
(Pour info, les slicers ne peuvent pas convenir dans mon cas)
Voici mes lignes de VBA très simples:
Sub LISTSYN()
ActiveSheet.PivotTables(“TDCI”).PivotFields(“CT_Num”).ClearAllFilters
ActiveSheet.PivotTables(“TDCI”).PivotFields(“CT_Num”).CurrentPage = ActiveSheet.Range(“B19”).Value
End Sub
Lorsque j’exécute uniquement la première ligne (le clear all Filters), cela fonctionne.
Lorsque j’essaie d’actionner la deuxième ligne j’ai une erreur d’exécution ‘1004’.
J’ai essayé différentes méthodes, au mieux cela me renomme le champ “CT_Num” avec la valeur de la cellule mais je n’ai jamais réussi à appliquer le filtre.
Merci pour votre aide.
Bernard
, le il y a 8 années.
