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

L

Lolote83

XLDnaute Barbatruc

• 4 Décembre 2018

• #2

Salut SISSOU71,
Exemple si ta plage est A1:H1

Code:

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

@+ Lolote83

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Décembre 2018

• #3

Bonjour Sissou71, Lolote83,

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

Pour que le filtre soit toujours présent :

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Décembre 2018

• #4

Re,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

S

Sissou71

XLDnaute Occasionnel

• 4 Décembre 2018

• #5

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

 

Vote positif 0 Vote négatif