[RÉSOLU]:VBA pour activer Filtre avec tableau dynamique nommé

[Gen Rose]

Bonjour,

Je tente de créer un code pour activer un filtre élaboré.
Mon tableau de base est nommé "ListeRep" et la zone de validation, dynamique aussi, est nommée "ListeFiltre".

Étant débutante, je suis prise dans une balle de laine.

Voir en p.j. mon essai.

Merci beaucoup 😱

 

[Pierrot93]

Re : VBA pour activer Filtre avec tableau dynamique nommé

Bonjour,

regarde peut être ceci si j'ai bien compris :

With Range("ListeRep")
    .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("ListeFiltre"), _
        CopyToRange:=Range("A10")
End With

bon après midi
@+

 

[BOISGONTIER]

Re : VBA pour activer Filtre avec tableau dynamique nommé

Bonjour,

Sub filtreJB()
    Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
        ("listefiltre"), Unique:=False
End Sub

Sub tout()
    On Error Resume Next
    ActiveSheet.ShowAllData
End Sub

ListeFiltre =DECALER('Repertoir Acces'!$AA$1;;;NBVAL('Repertoir Acces'!$AA:$AA))

Il ne faut pas de ligne vide dans le champ critère.


JB

 

[Gen Rose]

Re : VBA pour activer Filtre avec tableau dynamique nommé

Bonjour Pierrot
Boigontier 🙂
Le Forum,

Dans le cas de Pierrot, With Range("ListeRep") est souligné en jaune et pour Boigontier, tout est souligné en jaune.

Edit.: Oups Boigontier; je n'ai vu que la moitié du message! et pas ton fichier-joint. Je viens de tester le tout et ça marche parfaitement! Merci beaucoup beaucoup!

À nouveau merci et bon vendredi!

 

[BOISGONTIER]

Re : VBA pour activer Filtre avec tableau dynamique nommé

Programme testé sur Excel 2002 et 2010

JB