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!
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!