VBA - Macro Filtre automatique - Erreur 1004

Résolu/Fermé

Alex1857 Messages postés 13 Date d'inscription dimanche 11 novembre 2018 Statut Membre Dernière intervention 15 novembre 2020 - 13 sept. 2020 à 19:55
Alex1857 Messages postés 13 Date d'inscription dimanche 11 novembre 2018 Statut Membre Dernière intervention 15 novembre 2020 - 14 sept. 2020 à 16:33

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 !

A voir également:

La méthode autofilter de la classe range a échoué
Erreur 1004 vba ✓ - Forum VB / VBA
Erreur 0x80070643 - Guide
Photo filtre gratuit - Télécharger - Retouche d'image
MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum Excel
Erreur 1004 - Erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 sept. 2020 à 07:25

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

Discussions similaires

Erreur 1004 - La méthode Select de la base Range a échoué

Erreur 1004-La méthode Sort de la classe Range a échoué

Méthode Select de la classe Range

Erreur '1004' Méthode autofilter de la classe range a échoué

Erreur sur un code VBA (AutoFilter)

"La méthode Paste de la classe Worksheet a échoué"

Discussions similaires

Newsletters