Filtre automatique VBA

Fred74 · 22 Octobre 2011

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 · 22 Octobre 2011

Re : Filtre automatique VBA

bonjour Fred74

Et bienvenue sur XLD

A tester:

Code:

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 · 22 Octobre 2011

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

Filtre automatique VBA

Fred74

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

Fred74

Guest

Discussions similaires

Filtre automatique VBA

Fred74

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

Fred74

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency