URGENT MERCI

[Oudjat]

Comment affecter une macro a une cellule

ex: execute une macro lorsque lon clic sur la celulle A1


grand merci d'avance a tous

Oudjat

 

[Jacky]

Bonjour

Voici une macro trouvée dans ce forum

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Activer une macro en cliquant sur une cellule
If Target.Address(0, 0) = "A1" Then
Application.Dialogs.Item(xlDialogOpen).Show
End If
End Sub

 

[Oudjat]

ca marche pas il me met :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
en rouge et plante Excel

 

[Jacky]

Voici une autre macro qui t'affiche un MsgBox en selectionnant "A1"


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$a$1" Then MsgBox "c'est parti!"
End Sub