declanchement d'une macro par double click

S

sunguess

Guest
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!

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
300 761
Messages
1 987 017
Membres
209 680
dernier inscrit
frobleyy