Bonjour à tous,
Je cherche à établir un filtre selon les valeurs de plusieurs cellules. Le soucis c'est que ma source à filtrer est faite de formule et non de valeur (Feuille DATA).
Quand les données sont stockées "classiquement" aucun soucis mon code fonctionne.
Ya t-il un moyen d'y remedier ?
Bonne soirée à tous
Christophe
Je cherche à établir un filtre selon les valeurs de plusieurs cellules. Le soucis c'est que ma source à filtrer est faite de formule et non de valeur (Feuille DATA).
Quand les données sont stockées "classiquement" aucun soucis mon code fonctionne.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$8" Or Target.Address = "$C$8" Or Target.Address = "$D$8" Then 'critère
Range([B10], Range("U" & [B10].End(xlDown).Row)).Clear
Sheets("DATA").Range("A1:T4000").AdvancedFilter Action:=xlFilterCopy, _ 'feuille source
criteriaRange:=ActiveSheet.Range("B7:D8"), CopyToRange:=ActiveSheet.Range("B10"), Unique:=False
End If
End SubYa t-il un moyen d'y remedier ?
Bonne soirée à tous
Christophe