Discussion :

[jppnancy]

Bonsoir,
Dans un classeur Excel 2010 (avec une seule feuille), je parviens sans problème à utiliser un filtre avancé "à la main", mais dès que j'utilise VBA, avec les mêmes données le filtre n'extrait rien (avec l'option copier à un autre endroit). Je crois avoir tout essayé, indiqué les cellules en Range, créé des variables, rien n'y fait alors que les mêmes opérations y compris en enregistrement de macro fonctionnent très bien dans la feuille Excel et pas en VBA. Voici le code généré par l'enregistreur de macro qui a fonctionné lors de l'enregistrement, mais pas quand je l’exécute ensuite en VBA :

Code :

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

1
2
 Range("Database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("Crit03"), CopyToRange:=Range("G17"), Unique:=False

MERCI si vous pouvez me sortir de là, je deviens fou !!

[gnain]

Bonjour,
on ne peut pas avoir un Range comme Range("Database")
Il faut un range de type Range("B9:C26")

ex:

Code :

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

Range("B9:C26").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B13:B18"), CopyToRange:=Range("N9:O9"), Unique:=False

[Philippe Tulliez]

Bonjour,
Le code que tu as publié fonctionne parfaitement à condition que les plages nommées DataBase et Crit03 soient d'étendue au classeur ou dans si elles ont comme étendue la feuille où se trouve les plages que celles-ci soit active.
Dans le cas contraire, une erreur 1004 sera provoquée.
Si le scénario est ce dernier, il faut préciser le nom de la feuille où est étendue la plage comme ci-dessous

Code :

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

1
2
Range("DataList1!Database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("dataList1!Crit03"), CopyToRange:=Range("G17"), Unique:=False

Attention : Dans ce cas ci, l'exportation aura lieu plage G17 de la feuille active.
Conclusion : Les zones des données, de critères et d'exportation doivent avoir une référence explicite. (Classeur, feuille et plage).

[jppnancy]

=Philippe Tulliez;8198206]Bonjour,
Le code que tu as publié fonctionne parfaitement à condition que les plages nommées DataBase et Crit03 soient d'étendue au classeur ou dans si elles ont comme étendue la feuille où se trouve les plages que celles-ci soit active.
Dans le cas contraire, une erreur 1004 sera provoquée.
Si le scénario est ce dernier, il faut préciser le nom de la feuille où est étendue la plage comme ci-dessous

Code :

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

1
2
Range("DataList1!Database").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
        ("dataList1!Crit03"), CopyToRange:=Range("G17"), Unique:=False

Attention : Dans ce cas ci, l'exportation aura lieu plage G17 de la feuille active.
Conclusion : Les zones des données, de critères et d'exportation doivent avoir une référence explicite. (Classeur, feuille et plage).

Bonsoir,

Merci de ta réponse, mais ça ne marche toujours pas !!
J'ai renommé mon classeur "Waly.xlsm" et la seule feuille "WalyHours".

Voici mon code modifié selon tes instructions :

Code :

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

1
2
3
4
5
Application.Workbooks("Waly.xlsm").Worksheets("WalyHours").Range("Database") _
    .AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Application.Workbooks("Waly.xlsm").Worksheets("WalyHours").Range("Crit04"), _
    CopyToRange:=Application.Workbooks("Waly.xlsm").Worksheets("WalyHours").Range("G17"), _
    Unique:=False

Malheureusement ça ne marche toujours pas !!
En direct dans le classeur (1 seule feuille !) je demande Filtrer Avancé, je fais un copier/coller des références de cellules comme tu le conseillais et je les colle dans mon code VBA, code que j'ai obtenu avec l'enregistrement de macros et je fais très attention à tout vérifier ! En 'direct' et même en enregistrement de macros, il trouve des heures dans ma base et il les colle en-dessous de mon entête de colonne (obtenue par copier/coller des entêtes de la base), donc ça peut marcher.

Mais quand je lance ma proc Sub, ça ne marche plus, il laisse l'entête de destination pour l'export mais il ne colle rien dessous, alors que CE SONT LES MEMES DONNEES ET LES MEMES ZONES !!

et avec ce code ça ne marche pas mieux :

Code :

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

1
2
3
4
5
    Range("WalyHours!Database") _
    .AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("WalyHours!Crit03"), _
    CopyToRange:=Range("G17"), _
    Unique:=False

Merci encore de votre travail de bénédictin !! Bonne (courte je suppose !) nuit.

JPP

ReBonsoir,
Dans ma recopie d'écran 'défectueuse' attaché à ma réponse à "gnain", tu peux voir le problème : G18 est vide !

J'ai oublié de vous dire, je ne sais pas si c'est important, XL m'a créé le nom 'Extraire' dans la liste des noms. Je viens d'essayer la macro avec 'Extraire', ça ne marche pas mieux !

Serait-ce un bug d'Excel 2010 ?

Aurait-il fallu (je cherche !) que je 'charge' je ne sais pas si c'est le bon terme un 'Complément (? idem) d'Excel comme j'ai dû le faire dans une autre appli où j'ouvre des fichiers Word, j'y écrit depuis XL en VBA, etc... Est-ce une piste ?

Merci encore

Merci encore de votre travail de bénédictin !! Bonne (courte je suppose !) nuit.
JPP

[Marc-L]

Bonjour, bonjour !

Et en corrigeant la plage des critères dans le code ?‼




_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Invité]

Bonjour,
comme renseigne tu ta page de critères?

[Philippe Tulliez]

Bonjour,
Ton problème vient de ton critère qui est une date. Date qui est interprétée différemment suivant que tu utilises le VBA ou la version manuelle.
Le VBA interprète la date au format MM/JJ/AAAA.
Modifie le critère comme ceci >=4/1/15.

Pour pallier ce problème, je fais une concaténation de l'opérateur de comparaison et de la référence à la cellule où je place la date au format JJ/MM/AA

Code :

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

=">=" & $J$6

A toi de voir ce qui te convient le mieux

[jppnancy]

Bonjour,
Ton problème vient de ton critère qui est une date. Date qui est interprétée différemment suivant que tu utilises le VBA ou la version manuelle.
Le VBA interprète la date au format MM/JJ/AAAA.
Modifie le critère comme ceci >=4/1/15.

Pour pallier ce problème, je fais une concaténation de l'opérateur de comparaison et de la référence à la cellule où je place la date au format JJ/MM/AA

Code :

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

=">=" & $J$6

A toi de voir ce qui te convient le mieux

Bonjour à cette heure-ci

Merci beaucoup pour ce miracle de la compétence et du service réunis !!

Enfin, ça marche ! J'ai corrigé mon code en inversant Mois et Jour (à l'américaine) dans mon Sub. Par contre comme dans ma feuille j'avais des cellules avec BDSOMME, etc... j'ai dû faire une deuxième zone de critères "à la française" sinon cette autre partie de la feuille n'affichait plus rien. C'est un peu lourd, j'avoue, mais les deux fonctionnent EN MEME TEMPS donc ça me va. Je pense que tu aurais sûrement trouvé une formule plus élégante et plus économe.

Juste pour ma culture et pour que je progresse, si tu as le temps, je n'ai pas compris une partie de ta réponse et je pense que ça pourrait optimiser mon code :

""Modifie le critère comme ceci >=4/1/15.

Pour pallier ce problème, je fais une concaténation de l'opérateur de comparaison et de la référence à la cellule où je place la date au format JJ/MM/AA

Code :

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

=">=" & $J$6

Je ne vois pas comment utiliser ta citation en italique et souligné.

Merci encore de tout coeur pour cette solution.

JPP

[jppnancy]

Bonjour,
on ne peut pas avoir un Range comme Range("Database")
Il faut un range de type Range("B9:C26")

ex:

Code :

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

Range("B9:C26").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B13:B18"), CopyToRange:=Range("N9:O9"), Unique:=False

Bonsoir,

Merci de ta réponse rapide. Malheureusement ça ne marche toujours pas !!
En direct dans le classeur (1 seule feuille !) je demande Filtrer Avancé, je fais un copier/coller des références de cellules comme tu le conseillais et je les colle dans mon code VBA, code que j'ai obtenu avec l'enregistrement de macros et je fais très attention à tout vérifier ! En 'direct' et même en enregistrement de macros, il trouve des heures dans ma base et il les colle en-dessous de mon entête de colonne (obtenue par copier/coller des entêtes de la base), donc ça marche. Mais quand je lance ma proc Sub, ça ne marche plus, il laisse l'entête de destination pour l'export mais il ne colle rien dessous, alors que CE SONT LES MEMES DONNEES ET LES MEMES ZONES !!

Voici mon code :

Code :

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

1
2
Range("$A$1:$E$100").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("$H$1:$I$2"), CopyToRange:=Range("$G$17"), Unique:=False

J'ai aussi essayé sans les $, OK en direct, ça ne marche pas en VBA !

Code :

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

1
2
Range("A1:E100").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("H1:I2"), CopyToRange:=Range("G17"), Unique:=False

De même en utilisant les zones nommées dans le filtre généré automatiquement par XL :

Database | Crit03 (pour le mois de mars qui devrait afficher 7:00) | G17
OK en direct, Non en VBA
J'ai joint une recopie d'écran avec le filtre avancé 'ouvert'.

Comment se fesse ??

Merci de passer du temps sur ce qui ne devrait pas être un problème.
JPP