Filtre événementiel

Pierrot93

XLDnaute Barbatruc

• 2 Novembre 2007

• #2

Re : Filtre événementiel

Bonsoir Criscris

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

Code:

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
@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Novembre 2007

• #3

Re : Filtre événementiel

Salut cris, re pierrot

pour remettre la "totale" :

Code:

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 2 Novembre 2007

• #4

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.

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 2 Novembre 2007

• #5

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Novembre 2007

• #6

Re : Filtre événementiel

Re

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

Code:

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

 

Vote positif 0 Vote négatif

criscris11

XLDnaute Accro

• 2 Novembre 2007

• #7

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.

 

Dernière édition: 2 Novembre 2007

Vote positif 0 Vote négatif