[E-03] Modification du menu contextuel

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:

---

Set Mc = CommandBars("Cell").Controls

---

Code:

---

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

Essaie de remplacer Cell par Cellule ;)

Cela ne change malheureusement rien.

Le message d'ereur est le même

Amicalement

Stéphane

C'est embêtant ça !
Chez moi, ton code original fonctionne très bien !

Euh ...
Essaie ce code :

Code:

---

1 2 3 4 5 6 7 8 9

Sub ListerBarresOutils Dim ocbBarre as CommandBar Dim strBarres as String For each ocbBarre in Application.CommandBars strBarres = strBarres & vbNewLine & ocbBarre.Name Next MsgBox Mid(strBarres, 3) End Sub

---

Et regardes si tu trouves bien Cell dans la liste des barres d'outils...

Bonjour,

oui, il y as un "raccourci" dans le code, si celui-ci n'est pas dans un module, il faut préciser application.

Code:

---

Set mc = Application.CommandBars("Cell").Controls

---

J'ai bien "Cell" dans la liste !

Amicalement

Stéphane

>oui, il y as un "raccourci" dans le code, si celui-ci n'est pas dans un module, il faut préciser application...

Et bien cela y est, la lumière s'allume -))

Merci de votre aide à tous les deux

Amicalement

Stéphane