Discussion :

[guilld]

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!

[antonysansh]

Salut

essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultREBmic = Sheets("PLAN").[N119].Value

Antony

[guilld]

Good!! Ca semble plus stable. Merci