Bonjour,

Je suis en panne séche sur ce code qui me parrait simple.

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
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 !
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!