Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ajout d'une commande à un menu standard

ajout d'une commande à un menu standard

3 réponses
Avatar
Jacques
Bonjour,

Pas de problème pour ajouter un menu mais pour ajouter une commande à un
menu existant j'y arrive pas

pour définir le menu auquel ajouter la commande, j'ai essayé

Set Tools = Application.CommandBars("Outils")

Mais ca plante dès le départ

Comment faire?

Merci
Signaler un problème avec ce contenu

3 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
JB
Bonsoir,

MenuBars(xlWorksheet).Menus("Outils").MenuItems.Add
Caption:="Majuscule", OnAction:="Majuscule"

http://boisgontierjacques.free.fr/pages_site/Menus.htm#Ajouter

JB

On 31 mar, 22:24, "Jacques" <none> wrote:
Bonjour,

Pas de problème pour ajouter un menu mais pour ajouter une commande à un
menu existant j'y arrive pas

pour définir le menu auquel ajouter la commande, j'ai essayé

Set Tools = Application.CommandBars("Outils")

Mais ca plante dès le départ

Comment faire?

Merci


Avatar
Jacques
merci.. mais d'une manière générale en vba?

MenuBars(xlWorksheet).... ce n'est que pour excel

"JB" a écrit dans le message de groupe de
discussion :

Bonsoir,

MenuBars(xlWorksheet).Menus("Outils").MenuItems.Add
Caption:="Majuscule", OnAction:="Majuscule"

http://boisgontierjacques.free.fr/pages_site/Menus.htm#Ajouter

JB

On 31 mar, 22:24, "Jacques" <none> wrote:
Bonjour,

Pas de problème pour ajouter un menu mais pour ajouter une commande à un
menu existant j'y arrive pas

pour définir le menu auquel ajouter la commande, j'ai essayé

Set Tools = Application.CommandBars("Outils")

Mais ca plante dès le départ

Comment faire?

Merci


Avatar
Jacques
J'ai trouvé :

Set MyCommandBar = CommandBars.ActiveMenuBar.Controls("Outils").Controls


"Jacques" <none> a écrit dans le message de groupe de discussion :

merci.. mais d'une manière générale en vba?

MenuBars(xlWorksheet).... ce n'est que pour excel

"JB" a écrit dans le message de groupe de
discussion :

Bonsoir,

MenuBars(xlWorksheet).Menus("Outils").MenuItems.Add
Caption:="Majuscule", OnAction:="Majuscule"

http://boisgontierjacques.free.fr/pages_site/Menus.htm#Ajouter

JB

On 31 mar, 22:24, "Jacques" <none> wrote:
Bonjour,

Pas de problème pour ajouter un menu mais pour ajouter une commande à un
menu existant j'y arrive pas

pour définir le menu auquel ajouter la commande, j'ai essayé

Set Tools = Application.CommandBars("Outils")

Mais ca plante dès le départ

Comment faire?

Merci