Macro changer filtre selon une cellule

Fermé
System1212 Messages postés 25 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 15 avril 2024 - 18 nov. 2021 à 15:49
yg_be Messages postés 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 - 18 nov. 2021 à 19:39
Bonjour :)

J'ai besoin d'aide.
J'essaie de changer un filtre selon une cellule dans un TCD.

Ce que me donne la formule dans l'enregistrement:

With ActiveSheet.PivotTables("FDQ_WK_RFDQ").PivotFields("Week")
.PivotItems("39").Visible = False
.PivotItems("40").Visible = False
.PivotItems("41").Visible = False
.PivotItems("42").Visible = False
.PivotItems("43").Visible = True
.PivotItems("44").Visible = True
.PivotItems("45").Visible = True
.PivotItems("46").Visible = True
End With

Je veux changer les valeurs par une cellule. Quand j'essaie par exemple:

.PivotItems(" & Worksheets("Gestion FDQ").Range("F68").Value & ").Visible = True

Cela ne fonctionne pas.

Dans un TCD lié a un cube cela fonctionne parcontre. exemple

ActiveSheet.PivotTables("FDQ_WK_WhiteSpace").PivotFields("[Dimension Date].[Year - Week - Day].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("FDQ_WK_WhiteSpace").PivotFields("[Dimension Date].[Year - Week - Day].[Week Number]").VisibleItemsList = Array( _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("F68").Value & "]&[2021]", _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("G68").Value & "]&[2021]", _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("H68").Value & "]&[2021]", _
"[Dimension Date].[Year - Week - Day].[Week Number].&[" & Worksheets("Gestion FDQ").Range("I68").Value & "]&[2021]")

J'ai grandement besoin de votre aide :)
PS Les données sont confidentielles je ne peux envoyer le fichier en pièce jointe.
A voir également:

1 réponse

yg_be Messages postés 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 Ambassadeur 1 568
18 nov. 2021 à 16:34
bonjour,
as-tu essayé de faire
msgbox " & Worksheets("Gestion FDQ").Range("F68").Value & "
, pour comprendre ce que tu écris?
0
System1212 Messages postés 25 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 15 avril 2024
18 nov. 2021 à 18:13
J'ai fais MsgBox (Range("F68").Value) qui me renvoit ma valeur...

Mais ca ne fonctionne toujours pas

.PivotItems(" & Range("F68").Value & ").Visible = True
0
yg_be Messages postés 23473 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 février 2025 1 568 > System1212 Messages postés 25 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 15 avril 2024
18 nov. 2021 à 19:39
as-tu essayé de faire ce que j'ai suggéré, pour t'aider à comprendre?

ou bien
msgbox " & Range("F68").Value & "
0