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
Merci à l'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 à ceux qui sont intervus pour m'aider. Ça fonctionne avec quelques correctifs...
Partager