Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nouvel Item dans les menus Excel

Nouvel Item dans les menus Excel

4 réponses
Avatar
François Wattiaux
Bonjour

Comment peut on gérer les Item des menus Excel
En particulier, je désirerais caher certains items et en ajouter d'autres

Merci d'avanc

Wattiaux Francois
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Zambohanga
Manuellement ou par macro ?
Z

"François Wattiaux" <watt2000@@hotmail.com> a écrit dans le message de
news:
Bonjour,

Comment peut on gérer les Item des menus Excel?
En particulier, je désirerais caher certains items et en ajouter d'autres.

Merci d'avance

Wattiaux Francois


Avatar
Wattiaux François
Par macr

----- Zambohanga wrote: ----

Manuellement ou par macro


"François Wattiaux" <watt2000@@hotmail.com> a écrit dans le message d
news:
Bonjour
Comment peut on gérer les Item des menus Excel
En particulier, je désirerais caher certains items et en ajouter d'autres

Merci d'avanc
Wattiaux Francoi




Avatar
Patrick Bastard
Trouvé grace à ce forum :
à coller dans un module :

macros written 27. November 1998 by Ole P. Erlandsen,

Option Explicit

Sub CreateMenu()
' creates a new menu.
' can also be used to create commandbarbuttons
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
RemoveMenu ' delete the menu if it already exists
' create a new menu on an existing commandbar (the next 6 lines)
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, ,
, , True)
With cbMenu
.Caption = "&Mon menu"
.Tag = "MyTag"
.BeginGroup = False
End With
' or add to an existing menu (use the next line instead of the previous
6 lines)
'Set cbMenu = Application.CommandBars.FindControl(, 30007) ' Tools-menu
If cbMenu Is Nothing Then Exit Sub ' didn't find the menu...

' add menuitem to menu
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Première commande"
.OnAction = ThisWorkbook.Name & "!Macroname"
End With
' add menuitem to menu
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Menu Item2"
.OnAction = ThisWorkbook.Name & "!Macroname"
End With

' add a submenu
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Submenu1"
.Tag = "SubMenu1"
.BeginGroup = True
End With
' add menuitem to submenu (or buttons to a commandbar)
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Submenu Item1"
.OnAction = ThisWorkbook.Name & "!Macroname"
.Style = msoButtonIconAndCaption
.FaceId = 71
.State = msoButtonDown
End With
' add menuitem to submenu (or buttons to a commandbar)
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Submenu Item2"
.OnAction = ThisWorkbook.Name & "!Macroname"
.Style = msoButtonIconAndCaption
.FaceId = 72
.Enabled = False
End With

' add a submenu to the submenu
Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "&Submenu2"
.Tag = "SubMenu2"
.BeginGroup = True
End With
' add menuitem to submenu submenu
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Submenu Item1"
.OnAction = ThisWorkbook.Name & "!Macroname"
.Style = msoButtonIconAndCaption
.FaceId = 71
.State = msoButtonDown
End With
' add menuitem to submenu submenu
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Submenu Item2"
.OnAction = ThisWorkbook.Name & "!Macroname"
.Style = msoButtonIconAndCaption
.FaceId = 72
.Enabled = False
End With

' add menuitem to menu
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Supprimer ce menu"
.OnAction = ThisWorkbook.Name & "!RemoveMenu"
.Style = msoButtonIconAndCaption
.FaceId = 463
.BeginGroup = True
End With

Set cbSubMenu = Nothing
Set cbMenu = Nothing
End Sub

Sub RemoveMenu()
DeleteCustomCommandBarControl "MyTag" ' deletes the new menu
End Sub

Private Sub DeleteCustomCommandBarControl(CustomControlTag As String)
' deletes ALL occurences of commandbar controls with a tag CustomControlTag
On Error Resume Next
Do
Application.CommandBars.FindControl(, , CustomControlTag,
False).Delete
Loop Until Application.CommandBars.FindControl(, , CustomControlTag,
False) Is Nothing
On Error GoTo 0
End Sub

Sub Macroname()
' used by the menuitems created by the CreateMenu macro
MsgBox "This could be your macro running!", vbInformation,
ThisWorkbook.Name
End Sub


Bien cordialement,


--
==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

"Wattiaux François" a écrit dans le
message de news:
Par macra

----- Zambohanga wrote: -----

Manuellement ou par macro ?
Z

"François Wattiaux" <watt2000@@hotmail.com> a écrit dans le message
de

news:
Bonjour,
Comment peut on gérer les Item des menus Excel?
En particulier, je désirerais caher certains items et en ajouter

d'autres.


Merci d'avance
Wattiaux Francois









Avatar
Wattiaux François
Merci !

Wattiaux Françoi

----- Patrick Bastard" <bastardp"chez wrote: ----

Trouvé grace à ce forum
à coller dans un module

macros written 27. November 1998 by Ole P. Erlandsen,

Option Explici

Sub CreateMenu(
' creates a new menu
' can also be used to create commandbarbutton
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarContro
RemoveMenu ' delete the menu if it already exist
' create a new menu on an existing commandbar (the next 6 lines
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup,
, , True
With cbMen
.Caption = "&Mon menu
.Tag = "MyTag
.BeginGroup = Fals
End Wit
' or add to an existing menu (use the next line instead of the previou
6 lines
'Set cbMenu = Application.CommandBars.FindControl(, 30007) ' Tools-men
If cbMenu Is Nothing Then Exit Sub ' didn't find the menu..

' add menuitem to men
With cbMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Première commande
.OnAction = ThisWorkbook.Name & "!Macroname
End Wit
' add menuitem to men
With cbMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Menu Item2
.OnAction = ThisWorkbook.Name & "!Macroname
End Wit

' add a submen
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True
With cbSubMen
.Caption = "&Submenu1
.Tag = "SubMenu1
.BeginGroup = Tru
End Wit
' add menuitem to submenu (or buttons to a commandbar
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Submenu Item1
.OnAction = ThisWorkbook.Name & "!Macroname
.Style = msoButtonIconAndCaptio
.FaceId = 7
.State = msoButtonDow
End Wit
' add menuitem to submenu (or buttons to a commandbar
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Submenu Item2
.OnAction = ThisWorkbook.Name & "!Macroname
.Style = msoButtonIconAndCaptio
.FaceId = 7
.Enabled = Fals
End Wit

' add a submenu to the submen
Set cbSubMenu = cbSubMenu.Controls.Add(msoControlPopup, 1, , , True
With cbSubMen
.Caption = "&Submenu2
.Tag = "SubMenu2
.BeginGroup = Tru
End Wit
' add menuitem to submenu submen
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Submenu Item1
.OnAction = ThisWorkbook.Name & "!Macroname
.Style = msoButtonIconAndCaptio
.FaceId = 7
.State = msoButtonDow
End Wit
' add menuitem to submenu submen
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Submenu Item2
.OnAction = ThisWorkbook.Name & "!Macroname
.Style = msoButtonIconAndCaptio
.FaceId = 7
.Enabled = Fals
End Wit

' add menuitem to men
With cbMenu.Controls.Add(msoControlButton, 1, , , True
.Caption = "&Supprimer ce menu
.OnAction = ThisWorkbook.Name & "!RemoveMenu
.Style = msoButtonIconAndCaptio
.FaceId = 46
.BeginGroup = Tru
End Wit

Set cbSubMenu = Nothin
Set cbMenu = Nothin
End Su

Sub RemoveMenu(
DeleteCustomCommandBarControl "MyTag" ' deletes the new men
End Su

Private Sub DeleteCustomCommandBarControl(CustomControlTag As String
' deletes ALL occurences of commandbar controls with a tag
CustomControlTa
On Error Resume Nex
Do
Application.CommandBars.FindControl(, , CustomControlTag,
False).Delete
Loop Until Application.CommandBars.FindControl(, , CustomControlTag,
False) Is Nothing
On Error GoTo 0
End Sub

Sub Macroname()
' used by the menuitems created by the CreateMenu macro
MsgBox "This could be your macro running!", vbInformation,
ThisWorkbook.Name
End Sub


Bien cordialement,


--
==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse

Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net

"Wattiaux François" a écrit dans le
message de news:
Par macra
----- Zambohanga wrote: -----
Manuellement ou par macro ?
Z

"François Wattiaux" <watt2000@@hotmail.com> a écrit dans le message
de


news:
Bonjour,
Comment peut on gérer les Item des menus Excel?
En particulier, je désirerais caher certains items et en ajouter

d'autres.


Merci d'avance
Wattiaux Francois