Impossible de mettre un filtre sur un tableau

Bonjour,

Je n'arrive pas a mettre un filtre sur un tableau

Voici le code que j'utilise

Sub A()
Rows("2:2").Select
Selection.AutoFilter
Range("A1").Select
End Sub

Rien de compliqué

Ce code fonctionne si les données ne sont pas dans un tableau

Le message d'erreur que j'ai est le suivant

Savez vous comment résoudre ce problème.

Merci d'avance

Christophe

Hey,

Avec Office 365, pas besoin de vba pour ça

@+

Bonjour Clegal,

Si tu as vraiment besoin de ça, ce dont je doute aussi, il suffit d’activer cette option :

tu peux utiliser ce genre de macro :

Sub AddFilter()
    ActiveSheet.ListObjects("Tableau1").ShowAutoFilterDropDown = True
End Sub

Bonjour,

Merci pour le code. Cela évolue dans le sens ou l'erreur n'est plus la même

Et sinon j'ai besoin d'avoir les filtres pour faire des filtres apres via la macro

Merci de votre aide

Bonjour Clegal,

Évidemment, il faut adapter le nom "Tableau1" à ta situation…

Pour en revenir à ton ccode d’origine, tu ne peux pas appliquer un filtre sur une seule ligne, ça n’a pas d’intérêt. Au mieux, il faut d’abord sélectionner une zone rectangulaire de cellules.

Sub Macro1()
    Range("G12:M25").AutoFilter
End Sub