Discussion :

[sultan87]

Bonjour
j'utilise filtre avancé dans un userform en vba
je voudrais trier le résultat

' liste des années d'adhésions

Sheets("Adhérents").Columns("I:I").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B10:C11"), CopyToRange:=Range("A10"), Unique:=True
pouvez vous m'aider
Pierre

[barpasc]

il faudrait commencer par effacer les filtres précédents pour éviter un double filtrage et des incohérences

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.AutoFilterMode = False

ensuite quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set rRange = Range("A10").CurrentRegion
rRange.Sort Key1:="A1", Order1:=xlAscending, Header:=xlYes