XL 2016 Advanced filter (et accessoirement sélection de plage)

[erictran]

Bonsoir le forum

Avec votre aide j'ai pu adapter une macro de comparaison de table de données, et maintenant je peaufine : je voudrais utiliser advancedfilter pour utiliser des critères prédéfinis qui sont dans des tables de la feuille "filtre"

Mais je coince sur la compréhension de "advancedfilter" (et aussi une erreur sur la definition de la plage à filtrer qui est variable)

Je m'explique : pour les criteria , on définit la plage contenant les critères de filtres - dans mon cas feuille filtre "A3:A5" , mais comment définit t'on sur quelle colonne de la table de données il faut appliquer ce filtre ? Là à ce stade, je n'arrive pas à filtrer correctement la table de données sur les critères définis en "A3:A5"

D'avance merci pour vos lumières !

Eric

Sub FiltreSTHD()
Dim derlig

With Sheets("Comparaison")
.derlig = .Range("B" & Rows.Count).End(xlUp).Row
.Range("B3:AH3" & dlig).AdvancedFilter xlFilterInPlace, Worksheets("Filtres").Range("A3:A5"), False

End With

End Sub

 

[Phil69970]

Bonjour erictran

Beaucoup d'erreur dans ta sub
Ceci fonctionnera mieux.

Sub FiltreSTHD()
Dim Derlig As long

With Sheets("Comparaison")
    Derlig = .Range("B" & Rows.Count).End(xlUp).Row
    .Range("B3:AH" & Derlig).AdvancedFilter xlFilterInPlace, Worksheets("Filtres").Range("A3:A5"), False
End With

End Sub

@Phil69970

 

[erictran]

Merci Phil69970, cela fonctionne très bien. J'ai laissé de côté Advancedfilter au profit de Autofilter, et cela fonctionne parfaitement