Enchainer deux listes déroulantes filtrantes
Klems29i
Messages postés
9
Statut
Membre
-
gbinforme Messages postés 15481 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 15481 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
A voir également:
- Enchainer deux listes déroulantes filtrantes
- Listes déroulantes excel - Guide
- Listes déroulantes en cascade excel - Guide
- Deux ecran pc - Guide
- Comment faire deux colonnes sur word - Guide
- Nombre de jours entre deux dates excel - Guide
1 réponse
Bonjour,
Sans le classeur, pas facile de tester mais ainsi cela devrait fonctionner :
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
