Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Tu peux utiliser l'évenement before right click, mais pour faire propre, il faudrait désactiver le menu contextuel qui s'affiche intempestivement. Daniel "JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
unr petite question pratique :
Peut-on associé une macro au clic droit de la souris et si oui uniquement dans la feuil3 par exemple
MERCI A +
Tu peux utiliser l'évenement before right click, mais pour faire propre, il
faudrait désactiver le menu contextuel qui s'affiche intempestivement.
Daniel
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 11643DF7-1B01-45D1-B6C9-21502147B12B@microsoft.com...
Bonsoir,
unr petite question pratique :
Peut-on associé une macro au clic droit de la souris et si oui uniquement
dans la feuil3 par exemple
Tu peux utiliser l'évenement before right click, mais pour faire propre, il faudrait désactiver le menu contextuel qui s'affiche intempestivement. Daniel "JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
unr petite question pratique :
Peut-on associé une macro au clic droit de la souris et si oui uniquement dans la feuil3 par exemple
MERCI A +
Pounet95
Bonsoir, Je serai tenté de répondre oui, mais comme ce soir je raconte des aneries plus grosses que moi ! J'ose quand même ce code dans le module VBA de la feuille 3 Au besoin, mettre Cancel =True pour empêcher l'affichage du menu contextuel
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) MsgBox "yes" Cancel =True End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
unr petite question pratique :
Peut-on associé une macro au clic droit de la souris et si oui uniquement dans la feuil3 par exemple
MERCI A +
Bonsoir,
Je serai tenté de répondre oui, mais comme ce soir je raconte des aneries
plus grosses que moi !
J'ose quand même ce code dans le module VBA de la feuille 3
Au besoin, mettre Cancel =True pour empêcher l'affichage du menu contextuel
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
MsgBox "yes"
Cancel =True
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 11643DF7-1B01-45D1-B6C9-21502147B12B@microsoft.com...
Bonsoir,
unr petite question pratique :
Peut-on associé une macro au clic droit de la souris et si oui uniquement
dans la feuil3 par exemple
Bonsoir, Je serai tenté de répondre oui, mais comme ce soir je raconte des aneries plus grosses que moi ! J'ose quand même ce code dans le module VBA de la feuille 3 Au besoin, mettre Cancel =True pour empêcher l'affichage du menu contextuel
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) MsgBox "yes" Cancel =True End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
unr petite question pratique :
Peut-on associé une macro au clic droit de la souris et si oui uniquement dans la feuil3 par exemple
MERCI A +
JB
Bonjour,
Placer dans Feuil3
Private Sub Worksheet_Activate() Set temp = CommandBars("cell").Controls.Add temp.Caption = "babla" temp.OnAction = "MaMacro" temp.FaceId = 120 ' à définir temp.BeginGroup = True End Sub
Private Sub Worksheet_Deactivate() Application.CommandBars("Cell").Reset End Sub
Cordialement JB
Bonjour,
Placer dans Feuil3
Private Sub Worksheet_Activate()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "babla"
temp.OnAction = "MaMacro"
temp.FaceId = 120 ' à définir
temp.BeginGroup = True
End Sub
Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
Private Sub Worksheet_Activate() Set temp = CommandBars("cell").Controls.Add temp.Caption = "babla" temp.OnAction = "MaMacro" temp.FaceId = 120 ' à définir temp.BeginGroup = True End Sub
Private Sub Worksheet_Deactivate() Application.CommandBars("Cell").Reset End Sub