Bonjour,

J'ai un TCD avec une filtre dessus, dans ce filtre les valeurs de 1 à n sont coché, lors de la mise à jour du TCD ( que je fais par macro) j'aimerais coché un item de plus dans le filtre.

Pour coché un item l'enregistreur de macro donne ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.PivotTables("PivotTable2").PivotFields("tdev").PivotItems(1).Visible = True
ou '= False' pour décoché

J'ai donc voulu me servir de ceci pour boucler sur mes items et dès qu'il en trouve de non coché le coche et puis s'arrête
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test()
For i = 1 To ActiveSheet.PivotTables("PivotTable2").PivotFields("tdev").PivotItems.Count
If Not (ActiveSheet.PivotTables("PivotTable2").PivotFields("tdev").PivotItems(i).Visible) Then
    ActiveSheet.PivotTables("PivotTable2").PivotFields("tdev").PivotItems(i).Visible = True
    Exit For
End If
Next i
End Sub
Or j'ai un soucis (sinon je ne posterais pas ) c'est que ActiveSheet.PivotTables("PivotTable2").PivotFields("tdev").PivotItems(i).Visible renvoie toujours false même l'item est bien coché

Si vous avez des idées pour faire fonctionner ce code, je suis prenneur.
Si vous connaissez une autre méthode pour coché le premier item non coché dans mon filtre, je prends aussi

Merci d'avance