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:
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
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
Partager