Autres Filtre automatique

[Moran]

Bonjour à tous !

J'ai de nouveau besoin de votre aide...je n'arrive pas à obtenir le résultat que je souhaite.

Je voudrais que le tableau soit filtrer automatiquement en fonction du mot que j'indique en F1 (que les lignes ne correspondant pas à la recherche soient masquées).
Et que ce filtre s'opère dès que le mot recherché apparait dans la colonne B.

Merci pour votre aide !

 

[Hasco]

Bonjour,

Dans le module de code de la feuille vous trouverez la macro suivante qui filtre votre tableau dont les lignes de B contiennent le mot de $F$1. La macro supprime les filtres lorsque $F$1 est vide.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$1" Then

        With Range("A1").CurrentRegion
            .AutoFilter
            If Target.Text <> "" Then
                .Range("$A$1:$B$9455").AutoFilter Field:=2, _
                                                  Criteria1:="=*" & Target & "*", _
                                                  Operator:=xlAnd
            End If
        End With
    End If
End Sub

Cordialement

 

[Moran]

Merci beaucoup !
C'est parfait !