XL 2019 Perte du filtre après avoir fait une extraction

SplitFire

XLDnaute Nouveau
Bonjour,

j'ai un macro qui copie les données de l'onglet Données selon les critères de l'onglet Critères dans l'onglet Extraction. Mon problème est lorsque que j'ai filtré au préalable mon onglet Données, je perds automatiquement le filtre qui avait été fait dans l'onglet Données. Lorsque je clic sur mon bouton Extraction, toutes les données sont alors affichées. Je dois alors réactiver les filtres sur l'entête de colonne de mon onglet Données et refaire le filtre.

Voici mon code :

Sub ExtraireSelonCritere()
' ExtraireSelonCritere Macro
Sheets("Extraction").Select
ActiveWindow.SmallScroll ToRight:=10
Range("T3").Select
Sheets("Données").Range("DONNEES[#All]").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Sheets("Critères").Range("D1:F2"), CopyToRange:=Range( _
"Extraction!Extract"), Unique:=False
Range("A1").Select
End Sub

Est-ce qu'il me manque quelque chose?

Merci!
 

Bebere

XLDnaute Barbatruc
bonjour
Splitfire bienvenue
avec un fichier ce serait plus facile
Je pense que les critères doivent se trouver dans la feuille extraction
cette ligne est elle exacte Range("Extraction!Extract")
si tu n'as pas besoin de toutes les colonnes de données,tu peux mettre les entêtes des colonnes qui te sont utiles dans extractions
même syntaxe peu importe l'ordre
les 3 premières lignes sont inutiles
 

Discussions similaires

Réponses
3
Affichages
550
Réponses
1
Affichages
675

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib