Filtre auto

[MicDHL]

Bonjour à tous

Quelqu'un aurait-il la solution à mon problème.

Je souhaiterais qu' as coté de choix je selectionne un code par menu déroulant et qu'automatiquement se filtre la colonne A par rapport à ce choix.

Merci d'avance de votre aide précieuse.

 

[mth]

Re : Filtre auto

Bonjour Micdhl,

ci-joint un essai avec ce code dans Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$1" Then
        If Target = "(Tous)" Then
            Selection.AutoFilter Field:=1
        Else
            Selection.AutoFilter Field:=1, Criteria1:=Target.Text
        End If
    End If
End Sub

ceci dit ... on peut avoir exactement la même chose en filtrant directement sur la colonne A, pas compris l'intérêt d'en rajouter une couche avec la liste déroulante ... mais bon...

Bonne journée,

mth

 

[MicDHL]

Re : Filtre auto

Merci Beaucoup

Pour infos, le choix du filtre se feras en automatique dans un onglet de collage.

Enfin c'est ce qui est prévue, reste à essayer
A bientôt