Déclencher une macro en cliquant sur une cellule

[Magic_Doctor]

Bonjour à tous,

Ma question est dans l'intitulé.
Je voudrais tout simplement déclencher automatiquement une macro en cliquant sur une cellule, par exemple la cellule "A1".

Merci pour toute réponse.

 

[Pierrot93]

Re : Déclencher une macro en cliquant sur une cellule

Bonjour,

dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    'ton code
End If
End Sub

bonne soirée
@+

 

[Magic_Doctor]

Re : Déclencher une macro en cliquant sur une cellule

Bonjour Pierrot93,

Merci pour ton intervention.

J'ai bien suivi tes conseils en écrivant bien dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "B31" Then
ZAZA
End If

If Target.Address = "B32" Then
ZAZA
End If

End Sub

La macro s'intitulant "ZAZA".

Il y a en fait 2 cellules concernées. J'ai beau cliquer sur la cellule "B31" ou "B32", rien ne se passe.

J'ai fait, à tout hasard, une petite modification :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target.Cells(1, 1), Range("B31,B32")) Is Nothing Then
ZAZA
End If

Et là ça marche.
Bizarre...

Mais encore merci Pierrot pour ton aide.

Bonne fin d'après-midi.

End Sub

 

[Pierrot93]

Re : Déclencher une macro en cliquant sur une cellule

Re,

il manque les $

If Target.Address = "$B$31" Then

si tu ne veux pas les mettre :

If Target.Address(0,0) = "B31" Then