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:
ou '= False' pour décoché
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveSheet.PivotTables("PivotTable2").PivotFields("tdev").PivotItems(1).Visible = True
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
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é
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
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