Modifier les filtres d'un TCD en fonction de cellules
Bonsoir à tous,
J'écris sur ce forum car je rencontre actuellement une petite difficulté.
J'aimerais à l'aide d'une macro VBA, modifier les 2 filtres d'un tableau croisé dynamique.
Les 2 filtres ont les noms suivants : "Repas" et "Statut"
Je veux que le cellule C3 (feuille ou est présent le TCD) soit la valeur du filtre "Repas" et la cellule C4, la valeur du filtre "Statut".
J'ai trouvé la macro ci-dessous, qui fonctionne très bien pour changer le premier filtre, mais je ne sais pas vraiment quoi changer/modifier afin que cela modifie également le deuxième filtre !
'Macro pour changer les filtres "Repas" & "Statut"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$3" Then Exit Sub
Dim Sh As Worksheet, Pt As PivotTable
For Each Sh In Worksheets
For Each Pt In Sh.PivotTables
With Pt.PivotFields("Repas")
.ClearAllFilters
.CurrentPage = Target.Value
End With
Next Pt
Next Sh
End Sub
Merci d'avance pour votre aide
Nathan
Bonjour,
Joins un petit fichier pour illustrer tes propos.
Cdlt.
Bonjour Jean-Eric,
Voici ci-joint un exemple pour illustrer mes propos.
Dans cet exemple, j'aimerais que la cellule "E1" de la feuille TCD modifie le filtre du "Qualification" du TCD, et que a cellule "E2" de la feuille TCD modifie le filtre du "Sexe" du TCD.
En notant le code VBA ci-dessous, cela fonctionne bien pour le filtre "Qualification", or je ne sais pas vraiment comment faire pour que le code fonctionne pour les deux filtres.
'Macro pour changer les filtres "Qualification" & "Sexe"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$1" Then Exit Sub
Dim Sh As Worksheet, Pt As PivotTable
For Each Sh In Worksheets
For Each Pt In Sh.PivotTables
With Pt.PivotFields("Qualification")
.ClearAllFilters
.CurrentPage = Target.Value
End With
Next Pt
Next Sh
End Sub
Merci d'avance pour votre aide
Cdt
Nathan
Bonjour à tous
Pourquoi ne mas tout simplement filtrer par segments ?
Bonjour,
Bonjour 78Chris,
Un exemple avec segments !...
Et un soupçon de VBA pour actualiser le TCD.
Cdlt.
Merci à tous les deux !
Les segments étaient donc la solution
Bien cdt
Nathan