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