filtre auto = plusieurs ?

arnaoke · 20 Juin 2011

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 · 20 Juin 2011

Re : filtre auto = plusieurs ?

Bonjour arnaoke,

peut-être

Code:

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 · 20 Juin 2011

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:

VB:

ActiveSheet.ShowAllData

À+

Bonjour Tototiti. Endormi moi ce matin...

arnaoke · 20 Juin 2011

Re : filtre auto = plusieurs ?

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

Dranreb · 20 Juin 2011

Re : filtre auto = plusieurs ?

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

VB:

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 · 20 Juin 2011

Re : filtre auto = plusieurs ?

Bonjour arnaoke, salut tototiti, Dranreb,

Code:

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 · 20 Juin 2011

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 !

filtre auto = plusieurs ?

arnaoke

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Discussions similaires

filtre auto = plusieurs ?

arnaoke

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

arnaoke

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency