Sujet Précédent Sujet Suivant

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:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17217 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 27 décembre 2024 1 712
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
1

Discussions similaires

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

14 réponses
Erreur 1004-La méthode Sort de la classe Range a échoué
Ruffian15 -
f894009 -

5 réponses
Méthode Select de la classe Range
Nashimok -
Nashimok -

14 réponses
Erreur '1004' Méthode autofilter de la classe range a échoué
Ela1005 -
f894009 -

1 réponse
Erreur sur un code VBA (AutoFilter)
Ippo -
Ippo -

10 réponses
"La méthode Paste de la classe Worksheet a échoué"
Armandra -
Armandra -

2 réponses