OVH Cloud OVH Cloud

double clic pou exécuter macro

10 réponses
Avatar
Daniel
Je voudrait faire un double clic sur certaine cellule (cellule en rouge)
pour faire exécuter une macro déjà existante (une autre fenêtre avec des
filtre).

Gros Merci

10 réponses

Avatar
isabelle
bonjour Daniel,

voilà, c'est à recopier sur la page code de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Interior.ColorIndex = 3 Then
'Nom De la macro à executer
End If
End Sub

isabelle


Je voudrait faire un double clic sur certaine cellule (cellule en rouge)
pour faire exécuter une macro déjà existante (une autre fenêtre avec des
filtre).

Gros Merci


Avatar
Philippe.R
Bonsoir Daniel,

A placer dans le module de feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Interior.ColorIndex = 3 Then testsicoul 'ou bien le nom de ta macro
End Sub

'avec dans un module ordinaire :

Sub testsicoul()
MsgBox "C'est bon !", , "MPFE"
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Daniel" a écrit dans le message de
news:egGfb.68153$
Je voudrait faire un double clic sur certaine cellule (cellule en rouge)
pour faire exécuter une macro déjà existante (une autre fenêtre avec des
filtre).

Gros Merci




Avatar
Daniel
Merci mais je ne réusie pas a la faire fonctionner
( quand je parle de couleur rouge se son le lettre rouge)

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

voilà, c'est à recopier sur la page code de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Interior.ColorIndex = 3 Then
'Nom De la macro à executer
End If
End Sub

isabelle


Je voudrait faire un double clic sur certaine cellule (cellule en rouge)
pour faire exécuter une macro déjà existante (une autre fenêtre avec des
filtre).

Gros Merci




Avatar
Philippe.R
Pour la couleur de police :


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.font.ColorIndex = 3 Then testsicoul 'ou bien le nom de ta macro
End Sub


"Philippe.R" a écrit dans le message de
news:blncln$45u$
Bonsoir Daniel,

A placer dans le module de feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Interior.ColorIndex = 3 Then testsicoul 'ou bien le nom de ta macro
End Sub

'avec dans un module ordinaire :

Sub testsicoul()
MsgBox "C'est bon !", , "MPFE"
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Daniel" a écrit dans le message de
news:egGfb.68153$
Je voudrait faire un double clic sur certaine cellule (cellule en rouge)
pour faire exécuter une macro déjà existante (une autre fenêtre avec des
filtre).

Gros Merci








Avatar
sabatier
tiens, tu parles comme la mère de Napoléon Buonaparte maintenant, philippe?
jps

Philippe.R a écrit:
Then testsicoul


Avatar
AV
Juste un petit truc de plus :
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If zz.Font.ColorIndex = 3 Then
taMacro 'simplement le nom de la macro (à mettre
'dans le même module ou un module ordinaire)
Cancel = True
End If
End Sub

AV
Avatar
Philippe.R
Oui, Jean Paul, et régoulièrement je dis pourvou que ça doure !

"sabatier" a écrit dans le message de news:
tiens, tu parles comme la mère de Napoléon Buonaparte maintenant, philippe?
jps

Philippe.R a écrit:
Then testsicoul





Avatar
sabatier
ah philippe, tou es bien lé plou tourboulent dé la classe
jps

Philippe.R a écrit:
Oui, Jean Paul, et régoulièrement je dis pourvou que ça doure !

"sabatier" a écrit dans le message de news:

tiens, tu parles comme la mère de Napoléon Buonaparte maintenant, philippe?
jps

Philippe.R a écrit:

Then testsicoul









Avatar
MacBob
Salut tertous

Message juste pour vérifier les dires de jps et voir si je réapparais sur le
forum via wanadoo puisque micromou me censure.
Cela dit, puisqu'on en est aux je de maux, j'ai vu hier sur la camionnette
d'un plombier:
Mets l'eau man! (véridique).

MacBob 8°)))


Le 5/10/03 10:22, dans , « sabatier »
a écrit :

ah philippe, tou es bien lé plou tourboulent dé la classe
jps

Philippe.R a écrit:
Oui, Jean Paul, et régoulièrement je dis pourvou que ça doure !

"sabatier" a écrit dans le message de
news:

tiens, tu parles comme la mère de Napoléon Buonaparte maintenant, philippe?
jps

Philippe.R a écrit:

Then testsicoul












Avatar
sabatier
ben oui, bernard, ton post est bien là avec sa blague de haut niveau
(d'eau) qui l'accompagne...
jps

MacBob a écrit:
Salut tertous

Message juste pour vérifier les dires de jps et voir si je réapparais sur le
forum via wanadoo puisque micromou me censure.
Cela dit, puisqu'on en est aux je de maux, j'ai vu hier sur la camionnette
d'un plombier:
Mets l'eau man! (véridique).

MacBob 8°)))


Le 5/10/03 10:22, dans , « sabatier »


ah philippe, tou es bien lé plou tourboulent dé la classe
jps

Philippe.R a écrit:

Oui, Jean Paul, et régoulièrement je dis pourvou que ça doure !

"sabatier" a écrit dans le message de
news:


tiens, tu parles comme la mère de Napoléon Buonaparte maintenant, philippe?
jps

Philippe.R a écrit:


Then testsicoul