Filtre auto avec plage de cellules comme critère

Bonjour à tous,

Je vous sollicite une nouvelle fois pour un filtre automatique.

Je cherche à filtrer d'après une plage de cellule.

Dans la partie du code ci-dessous, je filtre (conseiller) par rapport au nom du conseiller en colonne "a".

Jusque là tout va bien

If Not Intersect(Target, Range("c5:h" & drligne_feuil14)) Is Nothing Then

        etat = Cells(4, Target.Column)
        conseiller = Range("a" & Target.Row)

Maintenant j'aurai voulu filtrer une plage de critère de cette façon

If Not Intersect(Target, Range("c22:h" & drligne_feuil14)) Is Nothing Then

        etat = Cells(4, Target.Column)
        conseiller = Range("a5":"a21")

Mais bien entendu ça ne fonctionne pas.

conseiller = Range("a5":"a21")

Merci d'avance pour votre aide

Peka

Bonjour,

Tu n'es pas nouveau sur le forum. Tu sais qu'un fichier est très souvent nécessaire pour avoir une aide adaptée.

Pour résumer, pas de bras pas de chocolat.

Cdlt.

Bonjour,

Oui je me doutais que j'allais recevoir ce message en retour.

Mais je n'ai malheureusement pas la possibilité de mettre mon fichier en public. Il s'agit de données confidentielles à mon grand regret.

J'ai tout de même tenté.

Bonne fin de journée

Peka

RE,

Tu as tout de même la possibilité de créer un classeur exemple et nous le soumettre.

Cdlt.

Re,

Effectivement tu as raison, j'aurai du prendre le temps de le faire

C'est chose faite

Du coup je m'explique un peu plus sur le code recherché :

en cliquant sur les chiffres du tableau en "feuille 1", un filtre auto + transposition sur une autre feuille est effectué.

Je cherche à pouvoir étendre cette macro sur le total en ligne 9.

Pour cela je voudrai utiliser comme critère la plage de cellule (A3:A8)

Avec pour contrainte de ne pas pouvoir ajouter de colonne dans la feuille "export" ni la feuille 1. (j'aurai pu contourner le problème sinon )

merci d'avance

Peka