personnaliser un rmenu contextuel

Qui peut m'aider,par exemple, à mettre un élément en 3ème position?

Bonsoir Bourby,
Un moyen possible de mettre ton menu à la troisième position...

Dim InsertMenu As CommandBarControl


' Trouver le menu Insert
Set InsertMenu = CommandBars(1).FindControl(Id:0005)

' Ajouter notre menu avant le menu Insert
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=InsertMenu.Index, _
temporary:=True)

NewMenu.Caption = "&Cells"

et bla bla bla

Starwing

Oups, petite erreur,
la troisième position est "View", alors il faut utiliser le no ID 30004


Starwing

| Qui peut m'aider,par exemple, à mettre un élément en 3ème position?

Sub zzz_InsereMenuContextuel()
With Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton,
before:=3)
.Caption = "faire un truc"
.OnAction = "maMacro"
End With
End Sub

sub maMacro
msgbox "je fais un truc"
end sub

AV

merci à AV et à Starwing; je vais pouvoir modifier mon code.

Bourby