OVH Cloud OVH Cloud

Bouton autofilter

3 réponses
Avatar
poy-poy
Bonjour,

Je me suis mis sur une barre de menu le bouton autofilter (représenté par un
entonnoir et un egal). Si je click dessus, excel me met bien l'autofilter,
mais si il y était déjà, il ne l'enlève pas. Je dois alors allez dans
données\autofilter pour l'enlever.
Il y aurait-il une option à cocher quelquepart pour pouvoir utiliser le
bouton pour l'enlever aussi ?

Merci d'avance
Benjamin

3 réponses

Avatar
Job
Bonjour aussi

Créer un nouveau bouton et lui affecter cette macro

Sub Suppr_filtre()
Selection.AutoFilter
End Sub


"poy-poy" a écrit dans le message news:

Bonjour,

Je me suis mis sur une barre de menu le bouton autofilter (représenté par
un

entonnoir et un egal). Si je click dessus, excel me met bien l'autofilter,
mais si il y était déjà, il ne l'enlève pas. Je dois alors allez dans
donnéesautofilter pour l'enlever.
Il y aurait-il une option à cocher quelquepart pour pouvoir utiliser le
bouton pour l'enlever aussi ?

Merci d'avance
Benjamin


Avatar
poy-poy
Bonjour Job,

C'est effectivement une solution, mais j'aurais voulu éviter d'ecombrer le
fichier personnal.xls pour rien. Je me disais que c'était typiquement le
genre de fonctionnalité qu'excel propose mais planqué dans un coin...
m'enfin, si personne connait, je me résoudrais à me créer un bouton

Merci de ta réponse
Benjamin


Bonjour aussi

Créer un nouveau bouton et lui affecter cette macro

Sub Suppr_filtre()
Selection.AutoFilter
End Sub


"poy-poy" a écrit dans le message news:

Bonjour,

Je me suis mis sur une barre de menu le bouton autofilter (représenté par
un

entonnoir et un egal). Si je click dessus, excel me met bien l'autofilter,
mais si il y était déjà, il ne l'enlève pas. Je dois alors allez dans
donnéesautofilter pour l'enlever.
Il y aurait-il une option à cocher quelquepart pour pouvoir utiliser le
bouton pour l'enlever aussi ?

Merci d'avance
Benjamin







Avatar
michdenis
Bonjour Poy-Poy,

Si tu veux savoir si les boutons d'un filtre automatique apparaissent sur une feuille de calcul, tu peux utiliser l'une
des 2 procédures. Mais celles-ci ne peuvent distinguer si un filtre est en application (une plage filtrée) sur la
feuille... détecte seulement la présence des boutons automatiques du filtre.

*************Méthode 1 ************
If Worksheets("Feuil1").AutoFilterMode = True Then
MsgBox "Boutons du filtre présent"
End If

*************Méthode 2 ************
Sub PrésenceBoutonFiltreAuto()

Dim Rg As Range
On Error Resume Next
Set Rg = Worksheets("Feuil1").AutoFilter.Range
If Err <> 0 Then
Err = 0
MsgBox "Les boutons du filtre auto ne sont " & _
"pas affichés dans la feuille"
End If

Set Rg = Nothing

End Sub
************************************

Si tu veux savoir si une plage de cellule de la feuille 1 est présentement appliqué (plage filtrée), tu peux utiliser
cette procédure. Tu peux même identifier la colonne (ou les colonnes`) où le filtre est en application.

'--------------------------------------
Dim Rg As Range

On Error Resume Next
Set Rg = Worksheets("Feuil1").AutoFilter.Range
If Err = 0 Then
For Each c In Rg.Columns
'C.column représente la colonne où est
'appliquée le filtre auto.
If Me.AutoFilter.Filters(c.Column).On = True Then
MsgBox "Plage filtrée"
Exit For
End If
Next
Else
Err = 0
End If
Set Rg = Nothing
'--------------------------------------


Salutations!




"poy-poy" a écrit dans le message de news:

Bonjour,

Je me suis mis sur une barre de menu le bouton autofilter (représenté par un
entonnoir et un egal). Si je click dessus, excel me met bien l'autofilter,
mais si il y était déjà, il ne l'enlève pas. Je dois alors allez dans
donnéesautofilter pour l'enlever.
Il y aurait-il une option à cocher quelquepart pour pouvoir utiliser le
bouton pour l'enlever aussi ?

Merci d'avance
Benjamin