Discussion :

[kikou44]

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.

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[kikou44]

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.

[SfJ5Rpw8]

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

[kikou44]

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

J'ai ecrit ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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..)

[kikou44]

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.

[kikou44]

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

[jmfmarques]

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à ...!

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"