Filtre événementiel

[criscris11]

Bonjour à tous,
J'aimerais savoir comment faire pour activer le filtre d'une colonne par rapport à la valeur d'une cellule.
Un exemple dans le fichier-joint.
Merci d'avance et bonne soirée à tous.

 

[Pierrot93]

Re : Filtre événementiel

Bonsoir Criscris

si j'ai bien compris, à placer dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then Range("B2").AutoFilter Field:=1, Criteria1:=Target.Value
End Sub

bonne soirée
@+

 

[Cousinhub]

Re : Filtre événementiel

Salut cris, re pierrot

pour remettre la "totale" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([H2], Target) Is Nothing And Target.Count = 1 Then
    If Target.Value <> "" Then
        [B2].AutoFilter Field:=1, Criteria1:=Target.Value
    Else
        [B2].AutoFilter Field:=1
    End If
End If
End Sub

 

[criscris11]

Re : Filtre événementiel

Bonsoir Pierrot, bhbh,
Merci à tous les deux pour vos propositions mais dès que la macro se déclenche (dans les 2 cas) c'est le filtre de la colonne A qui est activé ? Auriez-vous une explication ?
Merci et bonne soirée.

 

[criscris11]

Re : Filtre événementiel

Re,
Dans le fichier posté sur le forum, cela fonctionne mais pas dans le fichier auquel le code est destiné.
Je regarde et au cas où je posterai le fichier.
Merci.

 

[Pierrot93]

Re : Filtre événementiel

Re

une seule colonne dans ton classeur !!! essaye peut être comme ceci :

Then Range("B2").AutoFilter Field:=[COLOR="Red"][B]2[/B][/COLOR], Criteria1:=Target.Value
End Sub

 

[criscris11]

Re : Filtre événementiel

Re,
C'est bon : j'ai eu juste à changer AutoFilter Field:=1 par AutoFilter Field:=2.
Merci encore.

Edit : bien vu Pierrot, j'étais en train d'écrire quand tu as posté. Merci et bonne soirée.