J'ai récupéré ici (sur developpez.com) un petit morceau de code qui me génère l'erreur suivante :
"variable objet ou variable de bloc with non définie"
sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Mc = CommandBars("Cell").Controls
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
'Initialisation dans l'évènement Workbook_open
'
Private Sub Workbook_Open()
    MenuCell "fctInsLig", "test"
End Sub
 
' Insérer ligne
'
Sub fctInsLig()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "test"
 
End Sub
 
' Ajout d'une entrée dans menu contextuel
'
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
Auriez vous une piste à me donner ?

Amicalement

Stéphane