XL 2016 Macro qui active le filtre sur une ligne de tableau

[Sissou71]

Bonjour,

Je cherche une macro qui me permet dans un tableau Excel de positionner le filtre sur la 1ere ligne (sans filtrer de données juste activer le mode filtre sur cette ligne)
Quelqu'un saurait-il m'aider ?

 

[Lolote83]

Salut SISSOU71,
Exemple si ta plage est A1:H1

Sub PoseLesFiltres()
    Range("A1:H1").Select
    Selection.AutoFilter
End Sub

@+ Lolote83

 

[job75]

Bonjour Sissou71, Lolote83,

La solution de Lolote83 place/ôte le filtre un coup sur 2.

Pour que le filtre soit toujours présent :

Sub PlacerFiltreAuto()
ActiveSheet.AutoFilterMode = False
Range("A1:H1").AutoFilter
End Sub

A+

 

[job75]

Re,

Si le tableau est organisé en tableau Excel (ListObject) on utilisera :

Sub PlacerFiltreAuto()
On Error Resume Next
ActiveSheet.ListObjects(1).ShowAutoFilterDropDown = True
If Err Then ActiveSheet.ListObjects(1).Range.AutoFilter
End Sub

A+

 

[Sissou71]

Merci à vous. C'est un tableau en utilisant l'onglet tableau par "Mettre sous forme de tableau" donc un objet tableau
Cécile