tinet
XLDnaute Impliqué
Bonjour le forum,
Je suis obligé de faire un filtre dans un tableau avec nombreuses valeurs
Voici un exemple de mon critère de filtre que j'utilise
=OU(E2="bc100";E2="fr20";E2="zer254") en AA2
Pour m'éviter d'inscrire toutes les valeurs environ une soixantaine dans le code
Mon idée serait c'est possible d'avoir dans une feuille un tableau où j' indiquerai mes différents critères
Voilà ce que j'utilise après pour faire fonctionner mon filtre
Sub supligne()
With Feuil3
On Error Resume Next
.ShowAllData 'enléve filtre
derl = .Range("A65536").End(xlUp).Row
Sheets("base").Range("AA2").FormulaLocal = "=OU(E2 = ""bc100"";E2 = ""fr20""; E2 = ""zer254"")"
.Range("A1:I" & derl).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("base").Range("AA1").CurrentRegion, Unique:=False
End With
End Sub
merci pour votre aide
Je suis obligé de faire un filtre dans un tableau avec nombreuses valeurs
Voici un exemple de mon critère de filtre que j'utilise
=OU(E2="bc100";E2="fr20";E2="zer254") en AA2
Pour m'éviter d'inscrire toutes les valeurs environ une soixantaine dans le code
Mon idée serait c'est possible d'avoir dans une feuille un tableau où j' indiquerai mes différents critères
Voilà ce que j'utilise après pour faire fonctionner mon filtre
Sub supligne()
With Feuil3
On Error Resume Next
.ShowAllData 'enléve filtre
derl = .Range("A65536").End(xlUp).Row
Sheets("base").Range("AA2").FormulaLocal = "=OU(E2 = ""bc100"";E2 = ""fr20""; E2 = ""zer254"")"
.Range("A1:I" & derl).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("base").Range("AA1").CurrentRegion, Unique:=False
End With
End Sub
merci pour votre aide