Bonjour,
Je suis en panne séche sur ce code qui me parrait simple.
Je tente en fait de filtrer un TCD en rapport à une valeur que l'utilisateur selectionne dans une liste (sur un autre onglet). Et un coup pour l'autre cela ne fonctionne pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sheets("REB").Select Dim resultREBmic As String resultREBmic = Range("PLAN!N119").Value 'MaJ du filtre TDC 'TCD_VME23_CID23' ActiveSheet.PivotTables("TCD_REb_Micro_Freq_Mois").PivotFields("Micro").CurrentPage = resultREBmic 'Micro est exactement le nom du filtre entete du TCD
A un moment je me suis dit que c'est parce qu'il n'y a pas de données dans le TCD pour la référence sélectionnée, mais en fait si.. Il y a de quoi moudre !
En rouge, la ligne qui génére l'erreur.
Je me suis dit que quel'qu'un avait sans doute une réponse..
Merci!
Partager