Menu contextuel que sur certaines cellules
Bonjour
Je ne voudrai que une fonction d'un menu contextuel du bouton droit n'apparaisse que dans une plage de cellules. Ex: C1:G1
Mon code dans le classeur
Code:
1 2 3 4 5 6 7
|
Private Sub Workbook_Open()
MenuCell "Ferie", "Jour férié"
End Sub |
et dans le module
Code:
1 2 3 4 5 6 7 8 9 10
|
Function MenuCell(stCde As String, stMess As String)
Dim Mc As CommandBarControls
Dim Bo As CommandBarButton
Set Mc = CommandBars("Cell").Controls
Set Bo = Mc.Add(msoControlButton, Temporary:=True)
Bo.Caption = stMess
Bo.OnAction = stCde
End Function |
Merci par avance