macro qui marche pas

[mattttttttttttttrix]

lut
j'ai une macro qui s'exeute selon une valeur contenu dans une cellule....'1' ou '2'
mais celle ci fonctionne mal
quand jentre une des 2 valeur , il ne se passe rien
il faut que je revienne sur la cellule pour que cela fonctionne!!
comment puis-je faire pour cela soit imediat????
voici la macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B2')) Is Nothing Then
If Me.Range('B2') = 1 Then
Me.Image1.Visible = True
ElseIf Me.Range('B2') = 2 Then
Me.Image1.Visible = False
End If
End If
End Sub

c Mr JJM ki me la fourni ( dailleur encore merci ) pcq je suis pas très très douer........domage

donc si quelque a une idée......elle est la bien venu

PS: les valeur 1 ou 2 sont obtenu par une liste de choix
CAD jai un choi A ou B et ca renvoi respectivement 1 ou 2

merci davance
a+++

 

[CBernardT]

Bonjour Matrix,

au lieu de :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Ecrit :

Private Sub Worksheet_Change(ByVal Target As Range)


cordialement

Bernard

 

[mattttttttttttttrix]

ok
maintenant je ne suis pas obliger de revenir sur le cellule pour que cela fonctionne mais etant donner que la valeur est renvoyer par une liste de choi ca ne fonctionne toujours pas.....
que dois-je faire ????