Bonjour,
Je cherche à activer un filtre dans mon TCD à partir d'une cellule. Dans ma formule je copie la cellule B2 pour l'appliquer dans le filtre du TCD. Mon problème est qu'il copie toujours le contenu exact de la cellule B2 (de ma formule de départ). La contenu de la cellule B2 sera toujours changé. Alors je veux simplement que la cellule B2 soit référée à mon filtre.
Voici ma formule qui ne fonctionne pas.
Merci de votre aide.
Sub coller_copier_3()
'
' coller_copier_3 Macro
'
'
Range("B2").Select
Selection.Copy
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields( _
"[Élève].[Nom-Prénom-code permanent élève].[Nom-Prénom-code permanent élève]"). _
VisibleItemsList = Array( _
"[Élève].[Nom-Prénom-code permanent élève].&[bob, le clown (ABCD11111111)]")
End Sub
Je cherche à activer un filtre dans mon TCD à partir d'une cellule. Dans ma formule je copie la cellule B2 pour l'appliquer dans le filtre du TCD. Mon problème est qu'il copie toujours le contenu exact de la cellule B2 (de ma formule de départ). La contenu de la cellule B2 sera toujours changé. Alors je veux simplement que la cellule B2 soit référée à mon filtre.
Voici ma formule qui ne fonctionne pas.
Merci de votre aide.
Sub coller_copier_3()
'
' coller_copier_3 Macro
'
'
Range("B2").Select
Selection.Copy
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields( _
"[Élève].[Nom-Prénom-code permanent élève].[Nom-Prénom-code permanent élève]"). _
VisibleItemsList = Array( _
"[Élève].[Nom-Prénom-code permanent élève].&[bob, le clown (ABCD11111111)]")
End Sub