Exécution d'une macro à la sélection d'une cellule

Bonjour à tous !

Voilà mon problème, je souhaite lancer une macro lorsque l'utilisateur sélectionne une certaine cellule dans une worksheet, la worksheet "Analyse Conso".

J'ai essayé deux codes différents sans succès :

Le premier est en deux étapes, d'abord la macro dans un module

Sub bxl_onyx()

Sheets("Conso").Select
Selection.AutoFilter Field:=6, Criteria1:="Site A"
Selection.AutoFilter Field:=2, Criteria1:="A RENSEIGNER"

End Sub

puis la sub dans la sheet "Analyse Conso" dans laquelle se trouve la cellule que je souhaite utiliser pour éxécuter "bxl_onyx"

Private Sub affichage_selectif(ByVal Target As Range)

If Not Intersect(Target, Range("B12")) Is Nothing Then
call bxl_onyx
End If

End Sub

Le second code que j'ai tenté est en une seule étape, il mixe les deux du haut et est directement tapé dans la feuille "Analyse Conso":

Private Sub affichage_selectif(ByVal Target As Range)

If Not Intersect(Target, Range("B12")) Is Nothing Then
    Sheets("Conso").Select
    Selection.AutoFilter Field:=6, Criteria1:="Site A"
    Selection.AutoFilter Field:=2, Criteria1:="A RENSEIGNER"
End If

End Sub

Aucune de ces deux méthodes ne donne de résultat, d'où deux questions :

1° cela vient il du fait que mon code utilise une cellule de la feuille "Analyse Conso" pour travailler dans la feuille "Conso" et que cela n'est pas possible ?

2° Qqn aurait il une idée pour faire fonctionner tout ça ?

Merci d'avance, et bonne journée !

(NB : j'obtiens les mêmes "non-résultats" en remplaçant

If Not Intersect(Target, Range("B12")) Is Nothing Then

par

If Target.Address = "B12" Then

)

Bonjour,

Essais de mettre ceci dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B12")) Is Nothing Then
Call bxl_onyx
End If

end sub

en gardant ta macro

Sub bxl_onyx()

Sheets("Conso").Select
Selection.AutoFilter Field:=6, Criteria1:="Site A"
Selection.AutoFilter Field:=2, Criteria1:="A RENSEIGNER"

End Sub

Cordialement,

Hello Zirak,

En effet, ton code fonctionne. Le pbl vennait du nom de ma private sub. J'ignorais que son nom avait un impact...

Merci beaucoup !