web-dev-qa-db-fra.com

Déclencher la macro avec un clic sur une cellule spécifique

Cela vous dérangerait-il de pointer un moyen de démarrer une macro dans Excel 2010 en cliquant une seule fois sur une cellule spécifiée? J'avais vu une solution quelque part, mais maintenant je ne peux pas le retrouver.

5
Noob Doob

Voici une approche légèrement différente de la question initiale, qui peut convenir à certaines applications.

' Make the desired cell a hyperlink to itself ...
With ThisWorkbook.Sheets(mysheet)
  .Hyperlinks.Add Anchor:=.Cells(myrow,mycol), Address:="", SubAddress:="R[0]C[0]"
End With

' ... and then let the handler for the FollowHyperlink event do the business: 
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  Debug.Print "clicked " & Target.TextToDisplay & " on row " & Target.Range.Row
End Sub
0
Ray