Discussion :

[JudRos]

Bonjour,

Je suis ne train de tenter de programmer un filtre avancé, mais j'ai un souci dans le code que je ne comprends pas.
voilà mon projet:
J'ai une base de données en feuille "EXTRACT" et je souhaite faire un filtre avancé dans la feuille "HOTEL".
J'ai nommé les champs nécessaires afin de simplifier la macro.
base : données source
critereHotel, la zone avec les critères
Extract : sortie du filtre avancé


Le code est le suivant:

Code :

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

1
2
3
4
 
  Sheets("EXTRACT").Range("base").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("critereHotel"), CopyToRange:=Range("HOTEL!Extract"), _
        Unique:=False

Le souci est que lors que je lance la macro, cela m'efface la données source dans la feuille "EXTRACT"....
J'ai créé le code en faisant enregistrer macro, et lors de l’enregistrement, la base de donnée ne s'était pas effacée.

Je suis un peu perplexe.
Merci pour votre aide.

Judith

[Invité]

Bonjour,

Vous devriez plutôt avoir ça :

Code :

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

1
2
3
4
5
 
   With Sheets("HOTEL")
        Sheets("EXTRACT").Range("base").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=.Range("critereHotel"), CopyToRange:=.Range("Extract"), Unique:=False
   End With

[JudRos]

Merci beaucoup,

Effectivement avec la boucle "with" cela fonctionne impeccablement!

Bonne fin de journée.

[Invité]

J'étais adepte du filtre avancé il y a quelques temps mais regardez ceci : https://www.developpez.net/forums/bl...ique-surcroit/