Filtre automatique VBA

[Fred74]

Bonjour,

J'essaye de faire une macro avec un filtre automatique. Ce filtre se réfère à une liste déroulante dans la cellule B3. Le résultat est concluant pour chaque référence, mais lorsque je veux afficher l'ensemble du filtre au moyen de la mention "all" dans la liste déroulante, ca ne fonctionne pas. Y-a-t-il un moyen d'afficher le tout ?

Merci beaucoup d'avance pour votre aide...

Salutations

Fred

 

[pierrejean]

Re : Filtre automatique VBA

bonjour Fred74

Et bienvenue sur XLD

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B3") = "All" Then
    ActiveSheet.ListObjects("Liste1").Range.AutoFilter Field:=2
    Else
   Sheets("2011").Range("A11").Select
    Filtre = Range("B3")
    Selection.AutoFilter Field:=2, Criteria1:=Filtre
End If
End Sub

Note que ALL n'est pas All

 

[Fred74]

Re : Filtre automatique VBA

Bonsoir Pierrejean,

Merci beaucoup pour votre aide ca fonctionne à merveille.

Je vous souhaite un agréable week end

Meilleures salutations

Fred74