URGENT MERCI

J

Jacky

Guest

• 8 Octobre 2002

• #2

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

 

Vote positif 0 Vote négatif

O

Oudjat

Guest

• 8 Octobre 2002

• #3

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

 

Vote positif 0 Vote négatif

J

Jacky

Guest

• 8 Octobre 2002

• #4

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

 

Vote positif 0 Vote négatif