Filtre élaboré de Excel en VBA
Bonjour,
J'ai toutes mes données sur la même feuille (saisie). J'essaie d'extraire des données (de saisie vers T107_08) en utilisant un filtre élaboré (les critères sont dans (ref)). Au préalable, je souhaite effacer les données qui se trouvent déjà dans T107_08. Mes essais sont infructueux jusqu'à maintenant. Cette routine est exécutée de la feuille T107_08.
Votre aide serait fortement appréciée!
Routine pour filtrer les données et copier le résultat dans T107_08
Code:
1
2
3
4
5
6
7
8
9
| Sub FiltreT1()
'Efface le contenu de la feuille T107_08 (Feuil9)
Range("B16:X1084").ClearContents
'filtre élaboré
Set wbk = ThisWorkbook
With wbk.Sheets("saisie")
Columns("B16:X1084").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("ref").Range("E2:U4"), CopyToRange:=Sheets("T107_08").Range("B16")
End With
End Sub |
Merci à l'avance
Merci à ceux qui sont intervus pour m'aider. Ça fonctionne avec quelques correctifs...
