Discussion :

[sfourre]

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

[Maxence HUBICHE]

Essaie de remplacer Cell par Cellule

[sfourre]

Cela ne change malheureusement rien.

Le message d'ereur est le même

Amicalement

Stéphane

[Maxence HUBICHE]

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

Euh ...
Essaie ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sfourre]

J'ai bien "Cell" dans la liste !

Amicalement

Stéphane

[sfourre]

>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