Lancer macro avec double clique dans une cellule

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
R
Remi
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Remi » 4 février 2019, 09:41

Bonjour,

Je viens à la rencontre des experts d'excel :)
Voilà mon problème, j'aimerai quand je double clique sur la cellule K3 lancer une macro.

J'ai mis ce code là et pour l'instant ca marche :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("K3")) Is Nothing Then
SES_148191
End If
End Sub



Par contre je voudrais quand je double clique sur la cellule L3 de la même feuille lancer une autre macro. J'ai donc recopier le même code mais quand je clique sur l'une ou l'autre des cellules j'ai le message d'erreur :"erreur de compilation - nom ambigu détecté : Worksheet_beforeDoubleClick".

Pouvez vous m'aider à résoudre ce problème ?

Merci d'avance,

Cordialement,
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'934
Appréciations reçues : 401
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 4 février 2019, 09:52

Bonjour,

Tu ne peux pas avoir 2 macros événementielles sur une même action ! Sinon Excel ne sait pas laquelle choisir...

Regroupe donc tes deux cas dans une seule et unique macro "Private Sub Worksheet_BeforeDoubleClick" :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("K3")) Is Nothing Then Call SES_148191
    If Not Intersect(Target, Range("L3")) Is Nothing Then Call Macro2
End Sub
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
R
Remi
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Remi » 4 février 2019, 10:30

Merci ca marche super, mais ca rame pas mal au niveau calcul (normal vu le nombre de données) et de ce fait je me demandais si il était possible d'avoir le fichier sans le calcul automatique et que celui ci s'active au moment du double clic ?
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'898
Appréciations reçues : 694
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 4 février 2019, 11:08

Bonjour Remi, Pedro,

:bv:

:lole:  c'est Rémi sans famille ou Rémi sans accent ?  :P ;;)

je propose :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim chn$: chn = Target.Address
  With Application
    If chn = "$K$3" Then
      .Calculation = -4135: SES_148191: .Calculation = -4105
    ElseIf chn = "$L$3" Then
      .Calculation = -4135: Macro2: .Calculation = -4105
    End If
  End With
End Sub
dhany
R
Remi
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 13 novembre 2018
Version d'Excel : 2013

Message par Remi » 4 février 2019, 11:53

Arff ca n'a pas l'air de marcher. Dès que je clique dans une autre cellule du tableau j'ai de nouveau Excel qui se lance dans le calcule des différentes avec le pourcentage qui progresse doucement...
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message