declanchement d'une macro par double click

[sunguess]

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

 

[myDearFriend!]

Bonsoir sunguess, le Forum,

Ci-dessous une façon de faire :

A COLLER DANS LE MODULE DE CODE DE LA FEUILLE

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Application.Intersect(Target, Range('A1:B1')) Is Nothing Then
            Cancel = True
            If Target.Column = 1 Then
                  MacroA
            Else
                  MacroB
            End If
      End If
End Sub

Cordialement,

 

[CBernardT]

Bonsoir sunguess et Didier,

Une variante :

A coller également dans le module de feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A1:B1')) Is Nothing Then
If ActiveCell = Range('A1') Then
MsgBox 'COUCOU'
End If
If ActiveCell = Range('B1') Then
MsgBox 'AU REVOIR'
End If
End If
End Sub

Cordialement

Bernard

Message édité par: CBernardT, à: 25/11/2005 21:09

 

[sunguess]

merci a vous deux