Discussion :

[onejock]

bonjour,

j'utilise un bouton pour libérer les filtres sur un tableau mais j'ai un bug sur la derniere colonne : je joints le fichier excel qui contient le tableau en question (version light, avec juste le bug )

[J.Michel]

Pourquoi ne pas utiliser la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ShowAllData

[GlamIS]

ne me demande pas pourquoi mais le code cidessous a marché!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Option Explicit
Private Sub CommandButton1_Click()
    ' declarations
    Dim cel_colone_fin As Object
    Set cel_colone_fin = ActiveSheet.Cells(3, 2).End(xlToRight)

    
    'parcours des colonnes, pour retirer les filtres
    Dim colonne As Integer
    For colonne = 2 To cel_colone_fin.Column
        ActiveSheet.Cells(3, colonne - 1).AutoFilter field:=colonne - 1, VisibleDropDown:=True
    Next colonne
End Sub

[fring]

Bonjour,

Si tu veux simplement supprimer le filtre auto de ta feuille, tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("MaFeuille").AutoFilterMode = False

[onejock]

Bonjour,

Si tu veux simplement supprimer le filtre auto de ta feuille, tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("MaFeuille").AutoFilterMode = False

en fait non, je veux donner la possibilité de liberer tous les filtres avec un seul boutton... (mais c'est pas pour autant que je veux les enlever)....

[onejock]

a la limite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
' on l'enleve
Sheets("MaFeuille").AutoFilterMode = False
 
' puis on le remet
Sheets("MaFeuille").AutoFilterMode = true

mais c'est pas un peu moche ?

[fring]

en fait non, je veux donner la possibilité de liberer tous les filtres avec un seul boutton... (mais c'est pas pour autant que je veux les enlever)....

Le filtre auto, soit tu le mets, soit tu l'enlèves...il n'y a pas 50 solutions.
Et tous les filtres seront enlevés !

[onejock]

Pourquoi ne pas utiliser la méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ShowAllData

merci, mais ca plante quand une colonne est masquée

ne me demande pas pourquoi mais le code cidessous a marché!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Private Sub CommandButton1_Click()
    ' declarations
    Dim cel_colone_fin As Object
    Set cel_colone_fin = ActiveSheet.Cells(3, 2).End(xlToRight)

    
    'parcours des colonnes, pour retirer les filtres
    Dim colonne As Integer
    For colonne = 2 To cel_colone_fin.Column
        ActiveSheet.Cells(3, colonne - 1).AutoFilter field:=colonne - 1, VisibleDropDown:=True
    Next colonne
End Sub

je crois savoir pourquoi quand je demande un filtre auto, s'il y a 5 colonnes utilisées, il le fait egalement sur la 6eme... bref, il en fait n+1...

mais ca par contre je ne sais pas pourquoi... mistere