Enchainer deux listes déroulantes filtrantes
Klems29i
Messages postés
9
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voulais savoir s'il était possible d'enchainer deux liste déroulantes filtrantes sur la même feuille excel.
Les codes sont les suivants :
Option Explicit
La première filtre la ville et la seconde sert à filtrer la ligne d'appel.
Merci par avance.
Cordialement
Je voulais savoir s'il était possible d'enchainer deux liste déroulantes filtrantes sur la même feuille excel.
Les codes sont les suivants :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pvt As PivotTable, VMag As String
If Target.Address = "$C$2" Then
With Sheets("synthese")
VMag = .Range("C2")
For Each Pvt In .PivotTables
With Pvt.PivotFields("agence")
.ClearAllFilters
.CurrentPage = VMag
End With
Next Pvt
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pvt As PivotTable, VMag As String
If Target.Adress = "$D$2" Then
With Sheets("synthese")
VMag = .Range("D2")
For Each Pvt In .PivotTables
With Pvt.PivotFields("Ligne")
.ClearAllFilters
.CurrentPage = VMag
End With
Next Pvt
End With
End If
End Sub
La première filtre la ville et la seconde sert à filtrer la ligne d'appel.
Merci par avance.
Cordialement
1 réponse
-
Bonjour,
Sans le classeur, pas facile de tester mais ainsi cela devrait fonctionner :Private Sub Worksheet_Change(ByVal Target As Range) Dim Pvt As PivotTable If Target.Address = "$C$2" Or Target.Address = "$D$2" Then With Sheets("synthese") For Each Pvt In .PivotTables With Pvt.PivotFields("agence") .ClearAllFilters .CurrentPage = Range("$C$2").Value End With With Pvt.PivotFields("Ligne") .ClearAllFilters .CurrentPage = Range("$D$2").Value End With Next Pvt End With End If End Sub
