declanchement d'une macro par double click

Bonjour Sunguess,

Dans la feuille module où l'action se déroule, copie ceci :

'-------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = Range("A1").Address Then
Call Macro1
ElseIf Target.Address = Range("B1").Address Then
Call Macro2
End If
End Sub

'-------------------
Sub Macro1()
MsgBox "Bonjour"
End Sub
'-------------------

Sub Macro2()
MsgBox "Bonsoir"
End Sub
'-------------------


Salutations!



"sunguess" <no@no.fr> a écrit dans le message de news: 43875e7f$0$4203$626a14ce@news.free.fr...
bonjour,

j'ai une feuille excel dans laquelle je voudrais activer une macro A quant
on double clic dans la cellule A1 et activer une macro B quant on double
clic dans la cellule B1.

j'arrive a lancer soit la macro A soit la B mais je ne sais pas comment
faire pour que les 2 marches.

D'avance merci pour votre aide

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Select Case Target.Address
Case "$A$1"
MsgBox "A1"
Case "$B$1"
MsgBox "B1"
End Select
End Sub

Cordialement JB