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 : 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 à l'avance

Merci à ceux qui sont intervus pour m'aider. Ça fonctionne avec quelques correctifs...