VBA - Macro Filtre automatique - Erreur 1004 [Résolu]

Signaler
Messages postés
13
Date d'inscription
dimanche 11 novembre 2018
Statut
Membre
Dernière intervention
15 novembre 2020
-
Messages postés
13
Date d'inscription
dimanche 11 novembre 2018
Statut
Membre
Dernière intervention
15 novembre 2020
-
Bonsoir à tous,

J'ai développé sur un autre PC (avec Excel 2016) une macro intégrant la méthode Autofilter pour des dates. Lorsque j'ouvre le fichier sur mon ordinateur (avec Excel 2020), j'obtiens l'erreur suivante :

"Erreur d'execution 1004
La méthode Autofilter de la classe Range a échoué"

J'ai cherché et testé plusieurs choses mais rien à faire. Je suis donc revenu aux bases et j'ai crée un petit exemple. En utilisant l'enregistreur de macro, j'obtiens ce code ...

Sub Macro_Filtre()

    ActiveSheet.Range("$C$4:$F$10").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "1/1/2020")
    
End Sub


pour le tableau suivant :


Et même en re-exécutant le code de l'enregistreur, l'erreur persiste ! (J'execute bien depuis la feuille ce n'est donc pas à cause du ActiveSheet, d'ailleurs on mettant Thisworbook.Sheets... ça ne change rien)

Que-ce que je fais de mal ?

Lien du fichier : https://www.cjoint.com/c/JInr1t6U0gu

Merci d'avance !

4 réponses

Messages postés
15611
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 février 2021
1 460
Bonjour,

Chez moi, votre code marche mais prend la date en anglais avec
Array(1


ce code donne le "bon" resultat, du moins chez mois (Excel2013).

Sub Macro1()
    ActiveSheet.Range("$C$4:$F$10").AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "1/1/2020")
End Sub
Messages postés
23897
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 février 2021
6 668
Bonjour,

il semble qu'il y ait un soucis avec cette fonction Autofilter depuis mi-août (dû à une mise à jour ?)
Ca se manifeste sur les versions 365 et 2019.
Pas vu de palliatif pour l'instant, plus qu'à espérer une correction rapide...
eric
Messages postés
13
Date d'inscription
dimanche 11 novembre 2018
Statut
Membre
Dernière intervention
15 novembre 2020

Bonjour,

Merci pour vos réponses.

Eric, comment savez-vous cela ? Quelles sont vous sources ?
Cela me permettra de savoir lorsque ce sera corrigé...

Merci d'avance
Messages postés
23897
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 février 2021
6 668
Messages postés
13
Date d'inscription
dimanche 11 novembre 2018
Statut
Membre
Dernière intervention
15 novembre 2020

Je vois merci...

On espère donc une correction rapide..

Bonne journée !