Filtre automatique en VBA

Bonjour, je suis novice sur VBA et je recherche une solution pour pouvoir selectionner un choix dans un filtre automatique d'Excel en partant d'une valeur dans une cellule précise.
Ex: la colonne B à un filtre atomatique avec pour choix 1, 2, 3, et 4.
Je voudrais filtrer la colonne B avec un des choix qui serait saisi dans la cellule D1.

par exemple s'il y as qu'une colonne B.. dans tes données filtrées...

Code:

---

1 2	Range("B1").AutoFilter Field:=1, Criteria1:=[D1]

---

tu peu par exemple placer ce code dans le code relatif à la feuille contenant ton filtre automatique et le déclencher sur changement d'état...

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$1" Then Range("B1").AutoFilter Field:=1, Criteria1:=[D1] End If End Sub

---

Citation:

---

Envoyé par kikou44 (MP)

Merci pour ta réponse mais au risque de paraitre niais, une fois le code saisi, la macro n'est pas reconnu et je ne peux donc pas l'activer !!!
Comment dois je l'ecrire?

---

que ve tu dire par la macro n'est pas reconnu ... ou as tu saisi le code..?

as tu parcouru les règles du forum ... les Cours et Tutoriels par exmple :
Cours : Programmer efficacement avec Excel en VBA (pdf, 46 pages, 711 Ko) par J-M Rabilloud

Citation:

---

Envoyé par bbil

que ve tu dire par la macro n'est pas reconnu ... ou as tu saisi le code..?

---

J'ai ajouté un nouvelle macro en mode enregistrement en partant de ma feuille Excel pour entrer ton code a l'interrieur.

et tu as mi quoi comme code ... la 1° ligne..?.. bon je comprens pas ce que tu as fait...

Citation:

---

Envoyé par bbil

et tu as mi quoi comme code ... la 1° ligne..?

---

J'ai ecrit ton code:

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$1" Then Range("B1").AutoFilter Field:=1, Criteria1:=[D1] End If End Sub

---

voila ce qu'il faut faire ... donc tu as as une feuille avec le fitre automatique... (garde son nom en mémoire). .. puis depuis excel .. Menu outils/Visual basic editor (ou Alt-F11)... du passe dans l'editeur de projet à gauche tu devrai avoir une arborescence avec ton nom de classeur en haut.. du bouton droit de la souris tu clique sur le nom de la feuille contenant le filtre automatique et tu sélectionne code....ensuite tu y copie les quatres lignes de codes ..Worksheet_change....

tu reviens sur ta feuille excel et tu modifie la valeur en D1 ... cela devrai lancer la macro...

mais ... pense surtout que tu as de la lecture (voir ma signature..)

Citation:

---

Envoyé par bbil

voila ce qu'il faut faire ... donc tu as as une feuille avec le fitre automatique... (garde son nom en mémoire). .. puis depuis excel .. Menu outils/Visual basic editor (ou Alt-F11)... du passe dans l'editeur de projet à gauche tu devrai avoir une arborescence avec ton nom de classeur en haut.. du bouton droit de la souris tu clique sur le nom de la feuille contenant le filtre automatique et tu sélectionne code....ensuite tu y copie les quatres lignes de codes ..Worksheet_change....

tu reviens sur ta feuille excel et tu modifie la valeur en D1 ... cela devrai lancer la macro...

mais ... pense surtout que tu as de la lecture (voir ma signature..)

---

Super ca marche. Merci a toi.

Bonjour bbil,
hier soir tu as trouver une solution pour mon probléme de filtre automatique en VBA sur Excel.
La solution que tu m'a donné fonctionne bien si la cellule cible se trouve dans la même feuille que la colonne a filtrer. Comment faire si la cellule cible se trouve sur une autre feuille ou un autre classeur ?
Merci

Un nouveau sujet pour une suite... Ben ...
Et en plus on ne voit pas le 1er... alors que (apparemment) il ne s'agit que de "pointer" vers une autre feuille... C'est peut être un peu beaucoup, là ...!

bon jmf ta casiment donné la solution... (moi j'étè occupé à modérer ton message..)

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$1" Then ThisWorkBook.Sheets("Feui1").Range("B1").AutoFilter Field:=1, Criteria1:=[D1] End If End Sub

---

il faut placer le code événementiel ci-dessus dans la feuille conteant la cellule "filtre" .. et modifier la ligne de mise à jour en la faisant précéder de la référence au classeur et à la feuille..
ici j'ai considéré que c'était toujours le même classeur .. et la feuille au nom : "Feuil1"