XL 2013 Filtres dynamiques ou automatiques.

[skin373]

Bonjour le forum,

je recherche un code VBA ou une astuce, afin de pouvoir filtrer de façon dynamique un tableau en fonction de plusieurs critères définies dans la plage de cellules A2 à D2.
Je m'explique, je souhaite qu'au fur et à mesure que les critères sont renseignées sur cette plage, que les filtres de la plage A3 à D3 s'activent en prenant que les valeurs = 1 .

Je vous joint un petit fichier.

Skin 373

 

[Hasco]

Bonjour,

Dans le fichier joint une colonne est rajoutée pour renvoyer 1 ou 0 si la ligne corresponds aux critères.
Reste plus qu'à filtrer sur cette colonne.

Cordialement

 

[skin373]

Bonjour Roblochon,

je vais ajouter cette colonne à mon fichier.
Maintenant, il me faut trouver un code VBA qui me permettra d'afficher uniquement la ou les lignes qui sont à 1 dans cette nouvelle colonne.
Si tu as cela vers toi, ce serait super, mais déjà je vais pouvoir avancer.

Merci pour ton retour.

Skin 373

 

[skin373]

Roblochon,

suite à ta formule, j'ai réussi à faire ce que je voulais en intégrant le code ci-dessous :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range("$A$3:$f$150").AutoFilter Field:=6, Criteria1:=1
End Sub

Encore merci.

Skin 373.

 

[Hasco]

Re,

Eh bien, voilà une bonne chose. Quoique filtrer à chaque sélection sur la feuille, ça fait un peu beaucoup. Non ?
Il faudrait plutôt faire ça sur l'évènement Worksheet_Change en testant Target.

Cordialement