Discussion :

[a.faurie]

Bonjour à tous,
est-il possible d'ajouter un BP dans le menu appeler par le clic droit ?

mon idée c'est que je lance une macro de mise en forme lors du clic droit (ce qui va être fait régulièrement) sans forcement aller plus loin (ça je l'ai déjà fait)

mais à la fin je voudrais que le mec y fasse à nouveau clic droit puis y choisi "version final" et la bing ça lance une autre macro !

c'est possible ? si oui comment ?

merci pour vos réponse.

[parmi]

Bonjour,

Qu'est-ce qu'un BP ?

[Invité]

Salut,

Sans plus de détail voici un code qui ajoute un 'item' au menu associé au 'Click droit':

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Private Sub Workbook_Deactivate()
  On Error Resume Next
    With Application
      .CommandBars("Cell").Controls("My Macro").Delete
    End With
  On Error GoTo 0
End Sub
 
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
  Dim cBut As CommandBarButton
 
  On Error Resume Next
    With Application
      .CommandBars("Cell").Controls("My Macro").Delete
      Set cBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
    End With
 
    With cBut
      .Caption = "My Macro"
      .Style = msoButtonCaption
      .OnAction = "My_Macro"
    End With
  On Error GoTo 0
 
End Sub

Le code est à placer dans le module 'ThisWorkbook'.

[a.faurie]

merci ça marche pas mal,
j'en avais trouvé une autre mais j'étais obliger d'enregistrer.
il me reste qu'un souci c'est que ça ne marche que sur une de mes deux feuilles, je pense que c'est parce que j'ai une Private Sub sur une feuille qui s'active au clic droit elle aussi...