Problème Filtre avancé avec VBA

Version imprimable

06/04/2015, 03h28
jppnancy

Problème Filtre avancé avec VBA
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:

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 !!
06/04/2015, 03h47
gnain

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

ex:

Code:

Range("B9:C26").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B13:B18"), CopyToRange:=Range("N9:O9"), Unique:=False
06/04/2015, 08h17
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:

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).
07/04/2015, 02h12
jppnancy

1 pièce(s) jointe(s)

Impossible filtre avancé en VBA XL2010
Citation:

Envoyé par gnain

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

ex:

Code:

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:

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:

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

Citation:
=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:

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:

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:

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

07/04/2015, 12h06
Marc-L

Bonjour, bonjour !

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

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo
07/04/2015, 12h17
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:

=">=" & $J$6

A toi de voir ce qui te convient le mieux
07/04/2015, 12h31
Invité

Bonjour,
comme renseigne tu ta page de critères?
08/04/2015, 02h43
jppnancy

Citation:

Envoyé par 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:

=">=" & $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:

=">=" & $J$6

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

Merci encore de tout coeur pour cette solution.

JPP
08/04/2015, 10h18
Philippe Tulliez

Bonjour,

Citation:

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

Ta zone de critères est I3:J4 et suivant ton illustration, ton critère est >=1/4/15 donc tu remplaces cette formule par =">=" & $J$6 et en J6, tu peux placer la date 1/4/2015 (format JJ/MM/AA).
L'avantage de cette solution est multiple. Elle peut être utilisée indifféremment par VBA ou manuellement, l'encodage de la date servant au critère est plus simple à modifier et d'autre part cela fonctionne avec les formules de la catégorie Base de données telle que BDSOMME.
J'espère que c'est plus clair.

Pardon, je ne sais plus si je t'ai encore une fois remercié pour ton aide. J'ai maintenant compris ta formule ci-dessus (avec $J$6). Ca marche très bien en 'manuel', en VBA et avec BDSomme.

Si je peux abuser, j'ai essayé de réduire mon code en évitant de faire 12 longues sub pour filtrer ma base selon les mois. J'ai déjà réduit en gardant le gros de la macro dans une sub qui me permet d’appeler les 12 autres où il n'y a plus que la date et la formule de filtrage (suis-je clair ?). Je pense qu'on doit pouvoir faire une seule Sub à laquelle on passerait le paramètre 1er jour du mois en cours par exemple. J'essaye de me plonger dans les exemples qui sont donnés pour l'appel d'une procédure avec passage d'argument ou paramètre (c'est différent ?), mais ça me paraît très obscur et je ne vois vraiment pas comment fonctionnent ces proc appelantes et appelées. Y a-t-il un bon tutoriel simple qque part à ta connaissance ? J'ai réussi à conserver une variable i entre les proc qui pourrait me servir de passage, mais comment ? Voila où j'en suis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Option Explicit Dim i As Integer Sub FiltrerBase() Range("Database").Select ActiveWorkbook.Worksheets("WalyHours").Sort.SortFields.Clear ActiveWorkbook.Worksheets("WalyHours").Sort.SortFields.Add Key:=Range( _ "A2:A100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("WalyHours").Sort .SetRange Range("Database") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ' Selection.AutoFilter ActiveSheet.Range("Database").AutoFilter Field:=1, Criteria1:=Array("=") _ , Operator:=xlFilterValues, Criteria2:=Array(1, i & "/1/2015") ' j'utilise ma variable i ici End Sub ' FiltrerBase Sub FiltrerBase03() i = Range("H10").Value' donc i = 3 ici 'j'ai 01/03/2015 en H10 et ainsi de suite pour les autres mois FiltrerBase End Sub Sub FiltrerBase04() i = Range("I10").Value FiltrerBase End Sub
etc... pour les autres mois

Merci beaucoup si tu trouves du temps pour moi,
JPP

11/04/2015, 16h16
Philippe Tulliez

Bonjour,

Citation:

J'essaye de me plonger dans les exemples qui sont donnés pour l'appel d'une procédure avec passage d'argument ou paramètre (c'est différent ?)

Argument ou paramètre, c'est du pareil au même

Citation:

Y a-t-il un bon tutoriel simple qque part à ta connaissance ?

Un tutoriel à lire Les fonctions personnelles dans Excel
11/04/2015, 19h50
jppnancy

Merci encore et bon week-end à toi.

Jean-Pierre PETITJEAN
12/04/2015, 10h35
Philippe Tulliez

Bonjour Jean-Pierre,
S'il s'agit d'écrire une procédure en vue d'effectuer un tri avec arguments, tu peux utiliser celle que j'ai proposée dans cette contribution Procédure de tri - Excel 2003-2010 ou t'en inspirer pour créer ta propre procédure.
Exemple d'une procédure utilisant un argument dans la réponse à une discussion traitant d'un filtre avancé