Bonjour,

petit soucis, voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i = 1 To 5
    If var = "fefe" Then
        Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("An").CurrentPage = Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("An").PivotItems(i)
...
end if
next i
j'ai une erreur de code car la syntaxe est sûrement incorrecte. Je veux juste afficher les items du filtre 1 par 1.

merci