filtre élaboré avec critere variable

[debutant]

allo tout le monde

je fais un filtre élaboré

voici mon code

Range('A1:AF50000').AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range('AJ1:AJ67'), Unique:=False

J aimerais que mon criteriaRange soit variable et qu'il commence a la cellule AJ1 jusqu'a la derniere valeur qu'il y a dans la colonne AJ

j ai éssayé le code suivant

Range('A1:AF50000').AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(AJ1.End(xlDown)), Unique:=False

mais ca ne fonctionne pas

quelque sait comment faire ?!

merci bcp de m aider

 

[pat1545.]

Salut,

tu dois déterminer comme ceci la dernière ligne de ta colonne :

Option Explicit
Sub ESSAI()
Dim Mycrit
Mycrit = Range('A65000').End(xlUp).Address
Mycrit = '$A$25:' & Mycrit
Range('A1:F16').AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range(Mycrit), Unique:=False
End Sub