Discussion :

[David1259]

Bonjour le forum

J'ai un Tableau croisé dynamique j'aimerais à l'aide d'un bouton vba filtré par rapport à une liste.
J’ai trouvé cette formule qui me semble bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton2_Click()
With ActiveSheet.PivotTables("TCD").PivotFields("Date")
.PivotItems(mag).Visible = True
'plage qui parcourt l'ensemble des valeurs
Set plage = Worksheets("feuil1").Range("f1:f" & tous_les_mag)
'je parcours les éléments de la liste un à un
For Each z In plage
If z.Value <> mag Then
.PivotItems(z.Value).Visible = False
End If
Next
End With
End Sub

Mais il y a une erreur sur "mag" mais je ne sais pas quoi
Si quelqu'un pouvais me venir en aide ou me conseiller une autre formule

Merci d'avance