Bonjour à tous,
J'utilise plusieurs TCD dans le cadre de mon activité.
J'essaie tant bien que mal, de développer des améliorations en vba bien que je n'ai aucune notion d'informatique.
Soyez svp indulgents même si ma question peut vous paraître simple
Mon tableau est organisé par dates (Mois puis semaines). Il y a un 3ème niveau de ligne appelé OS.
Je souhaiterais pouvoir développer les lignes "Semaines" de mon tableau, mais seulement lorsque les lignes "OS" ne sont pas vides.
J'ai pour l'instant réussi à développer les lignes "Mois". Dans l'exemple j'ai décidé de masquer les mois à partir de juillet car je ne souhaite afficher que le premier semestre.
Je pourrais aussi développer l'ensemble des lignes "Semaines", mais comme la plupart sont vides, cela n'a pas d'intérêt.
Voici le descriptif de mon code :
Sub Synthèse_1()
Dim TCD As PivotTable
' Affiche le détail et supprime les mois non désirés
For Each TCD In ActiveSheet.PivotTables
TCD.PivotFields("Mois").ShowDetail = True
With TCD.PivotFields("Mois")
.PivotItems("Juillet").Visible = False
.PivotItems("Août").Visible = False
.PivotItems("Septembre").Visible = False
.PivotItems("Octobre").Visible = False
.PivotItems("Novembre").Visible = False
.PivotItems("Décembre").Visible = False
End With
Next
Je vous joins 3 photos :
- La première montre le tableau à l'état standard
- La seconde c'est ce que je voudrais obtenir
- La troisième correspond à ce que j'aurai en développant toutes les semaines (donc que je ne veux pas).
Merci par avance pour votre aide !
Maxime