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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
 
Private Sub Workbook_Open()
 
MenuCell "Ferie", "Jour férié"
 
End Sub
et dans le module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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