Ce filtre avancé est appliqué par une procédure que tu peux visualiser dans le module de la feuille
(clic droit sur l'onglet "Feuil1" puis Visualiser le code).
La procédure est lancée lorsque la cellule K2 est modifiée.
Voici le code commenté :
Private Sub Worksheet_Change(ByVal Target As Range)
'Si la plage modifiée comprend plus d'une cellule, on sort de la procédure
If Target.Count > 1 Then Exit Sub
'Si la cellule modifiée est K2
If Target.Address = "$K$2" Then
'On applique un filtre avancé sur la plage A2:I17 avec le critère de la plage K1:K2
Range("A2:I17").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("K1:K2"), Unique:=False
End If
End Sub
De plus, j'ai placé une liste de validation dans K2 afin de limiter la liste des choix aux critères définis (Groupe A, Groupe B, Groupe C) .
A+