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
et dans le module
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
Merci par avance
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
Partager