Macro changer filtre selon une cellule

System1212 Messages postés 25 Date d'inscription Statut Membre Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 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.

Afficher la suite

A voir également:

Macro changer filtre selon une cellule
Changer dns - Guide
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Changer carte graphique - Guide
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour,
as-tu essayé de faire

msgbox " & Worksheets("Gestion FDQ").Range("F68").Value & "

, pour comprendre ce que tu écris?

System1212 Messages postés 25 Date d'inscription Statut Membre Dernière intervention

J'ai fais MsgBox (Range("F68").Value) qui me renvoit ma valeur...

Mais ca ne fonctionne toujours pas

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > System1212 Messages postés 25 Date d'inscription Statut Membre Dernière intervention

as-tu essayé de faire ce que j'ai suggéré, pour t'aider à comprendre?

ou bien

msgbox " & Range("F68").Value & "

Votre réponse