filtre auto = plusieurs ?

[arnaoke]

Bonjour,

Après quelques recherches sur le net, il est apparemment impossible de poser plusieurs filtres auto sur une meme feuille, j'ai cependant une objection à soumettre là dessus :

Lorsque l'on sélectionne la ligne entière, puis que l'on pose le filtre auto, on peut ensuite filtrer nos colonnes indépendamment (en tout cas en "manuel" sur excel).

j'ai essayé de le faire en comprenant le fonctionnement, vie l'éditeur de macro, et c'est apparemment une histoire de paramètres " Field ".

mais j'ai un problème une fois le bouzin codé...

des idées ?

 

[tototiti2008]

Re : filtre auto = plusieurs ?

Bonjour arnaoke,

peut-être

Private Sub CommandButton1_Click()
    ActiveSheet.Range("B8:D8").Select
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Selection.AutoFilter Field:=2, Criteria1:="Telo"
    Selection.AutoFilter Field:=3, Criteria1:="Jean"
End Sub

Private Sub CommandButton2_Click()
    ActiveSheet.Range("B8:D8").Select
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Selection.AutoFilter Field:=3, Criteria1:="jean-claude"
    Selection.AutoFilter Field:=1, Criteria1:="renault"
End Sub

 

[Dranreb]

Re : filtre auto = plusieurs ?

Bonjour
Je pense que ça vient de ActiveSheet.AutoFilterMode = False
Si l'intention est d'annuler tout filtre précédent sans détruire les flèches utilisez plutôt:

ActiveSheet.ShowAllData

À+

Bonjour Tototiti. Endormi moi ce matin...

 

[arnaoke]

Re : filtre auto = plusieurs ?

Eh, non, en fait cela fait strictement la même erreur :/

 

[Dranreb]

Re : filtre auto = plusieurs ?

Chez moi, ça, ça ne plante pas:

Private Sub CommandButton1_Click()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
With ActiveSheet.Range("B8:D15")
   If Not ActiveSheet.AutoFilterMode Then .AutoFilter
   .AutoFilter Field:=2, Criteria1:="Telo"
   .AutoFilter Field:=3, Criteria1:="Jean"
   End With
End Sub

Private Sub CommandButton2_Click()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
With ActiveSheet.Range("B8:D15")
   If Not ActiveSheet.AutoFilterMode Then .AutoFilter
   .AutoFilter Field:=3, Criteria1:="jean-claude"
   .AutoFilter Field:=1, Criteria1:="renault"
   End With
End Sub

 

[job75]

Re : filtre auto = plusieurs ?

Bonjour arnaoke, salut tototiti, Dranreb,

Private Sub CommandButton1_Click()
ActiveSheet.AutoFilterMode = False
With Range("B8", [D65536].End(xlUp))
  .AutoFilter Field:=2, Criteria1:="Telo"
  .AutoFilter Field:=3, Criteria1:="Jean"
End With
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.AutoFilterMode = False
With Range("B8", [D65536].End(xlUp))
  .AutoFilter Field:=3, Criteria1:="jean-claude"
  .AutoFilter Field:=1, Criteria1:="renault"
End With
End Sub

A+

 

[arnaoke]

Re : filtre auto = plusieurs ?

Salut;

à première vue cela fonctionne !

reste plus qu'a implémenter ceci dans mon fichier final, je vous tiens au courant !