Méthode de filtrage

Bonjour tout le monde, je reviens aujourd'hui vers vous car j'ai un problème avec ma méthode de filtrage. J'ai écris un programme permettant d'importer une base de données d'un autre classeur Excel sur mon classeur Excel. Je réalise ensuite un tri des données et cela passe par une méthode de filtrage. Pour être plus précis, mon classeur possède plusieurs onglets correspondant à des types de tarifs. La base de données que je viens d'importer comporte une colonne indiquant le type de tarif. Donc je filtra chaque type de tarif pour l'ajouter à l'onglet qu'il faut. Seulement, j'ai un problème avec mon code :

Code:

---

Sheets("Données").Range("$A$1:$O$" & derniereLigne1).AutoFilter Field:=16, Criteria1:="CE1"

---

Le programme s'arrête sur cette ligne avec comme message d'erreur : "La méthode AutoFilter de la classe Range a échoué"
Auriez-vous une réponse à cette erreur s'il vous plait ?
Merci d'avance.

Bonjour,

Il faut penser à lui désigner sur quelle ligne va s'appliquer le filtre et activer le filtre sur cette ligne

Code:

---

1 2 3

ActiveSheet.AutoFilterMode = False 'supprime tous les filtres Rows(1).AutoFilter 'ajoute un filtre sur la ligne 1 Sheets("Données").Range("$A$1:$O$" & derniereLigne1).AutoFilter Field:=16, Criteria1:="CE1"

---

Cdlt

Cela marche parfaitement, je te remercie !