Bonjour à tous !
Je vous explique mon soucis je souhaiterais faire une macro qui me permettrai en cliquant sur un dessin (un rectangle voir pièces jointes
) situé sur la feuille : "Accueil" , de filtré le TCD de la page : "Diagramme"
mais seulement le champs Unité en choisissant soit la DR, la DRG ou USR... et laissé tout coché dans le champs Etat
Je souhaite voir ceci quand je clique sur DRG par exemple :
J'ai essayé de faire ma macro mais pour l'instant elle ne fait que dé-filtré mais champs et sélectionner l'unité grâce à une autre cellule, je n'ai pas beaucoup de connaissance sur excel je ne m'en sors plus toute seule a ce stade !!!
Voici ma macro :
Sub effacer_filtres_TCD()
Sheets("Diagramme").Select
Application.ScreenUpdating = False
For Each Pt In ActiveSheet.PivotTables
For Each pf In Pt.VisibleFields
For Each Pi In pf.PivotItems
Pi.Visible = False
On Error Resume Next
Next Pi
Next pf
Next Pt
Application.ScreenUpdating = True
Dim i&, Plage As Range, Itm As String
Application.ScreenUpdating = False
Set Plage = Sheets("Accueil").Range("V3")
Sheets("Diagramme").Select
For i = 1 To Plage.Count
Itm = Plage(i).Text
With Sheets("Diagramme").PivotTables("TCD").PivotFields("Unité")
.PivotItems(Itm).Visible = True
End With
Itm = ""
Next i
Sheets("Diagramme").PivotTables("TCD").PivotFields("Etat"). _
EnableMultiplePageItems = True
Application.ScreenUpdating = True
End Sub
Je conçois que pour quelqu'un d’aguerri cela doit faire peur...
Mais j'ai vraiment essayé !!!
Je vous remercie pour votre attention, et merci d'avance pour vos réponse.