Bonjour à tous,

A l'ouverture de mon classeur j'active cette fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Or j'aimerai retrouver la fonctionnalité de mon clic droit "collervaleur" sur seulement une seule feuille.
J'ai essayé de créer mon propre clic droit avec:

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
29
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
Dim MaBarre As CommandBar
DelPopupMenu
Set MaBarre = Application.CommandBars.Add(Name:="ClicDroit", Position:=msoBarPopup)
 
With MaBarre
 
    .Controls.Add Type:=msoControlButton
 
    If Target.Row = 8 And Target.Column = 1 Then
 
        .Controls(1).OnAction = "Exctraction"
        .Controls(1).Caption = "Coller l'exctration"
 
    End If
 
End With
 
MaBarre.ShowPopup
 
End Sub
 
Sub Exctraction()
 
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
End Sub
Mais rien n'y fait malgré les nombreux forums que j'ai pu visiter.

Un grand merci pour votre aide,