Discussion :

[Bemirdor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ARTURO83]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bemirdor]

Cela marche parfaitement, je te remercie !