Déclencher une macro en cliquant sur une cellule

Retour vers Excel

But : Le but est simple, utiliser une case déterminée comme un bouton de commande. Pour cela, on récupère l'adresse de la case cliquée sur l'événement Worksheet_SelectionChange et on lui fait subir un test If...Then... La commande Call introduit la ou les procédures que l'on souhaite déclencher. On profite également de ce petit exercice pour approcher la notation Cells(1, 1) (=Cellule A1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" Then
 Call MaProcedure
 Call SelectionCases
End If
End Sub

Sub MaProcedure()
 MsgBox "hello"
End Sub

Sub SelectionCases()
 Dim col As Integer
 col = InputBox("quel nombre ?")
 Range(Cells(1, 1), Cells(2, col)).Select
End Sub

Cliquez ici pour télécharger le fichier exemple DeclencherProcedureSiClicDansUneCase

FIN

Avertissement