Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Barre outil personnalisée avec liste déroulante ...

Barre outil personnalisée avec liste déroulante ...

6 réponses
Avatar
Gregory Hilaire
Bien le bonjour le groupe!

Je voudrais dans une barre d'outils personnalisée avoir un menu déroulante
( à la manière des liste de polices ou de style de la barre de mise en forme
d'Excel) et chaque option donnerait accès à une macro...

Quelqu'un a t'il une idée ou un exemple duquel je pourrais m'inspirer?

Un gros merci et une bonne journée

Greg
Signaler un problème avec ce contenu

6 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
Bonjour,

Sub auto_open()
On Error Resume Next
Set Barre = CommandBars.Add
Barre.Name = "BarreMacros"
Barre.Visible = True
Set Menu = Barre.Controls.Add(msoControlComboBox)

Menu.AddItem "Macro1"
Menu.OnAction = "Macro1"

Menu.AddItem "Macro2"
Menu.OnAction = "Macro2"
Menu.Text = "Sélectionner puis choisir"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreMacros").Delete
End Sub

Sub macro1()
MsgBox "macro1"
End Sub

Sub macro2()
MsgBox "macro2"
End Sub

JB
http://boisgontierjacques.free.fr




On 19 juil, 06:51, "Gregory Hilaire" wrote:
Bien le bonjour le groupe!

Je voudrais dans une barre d'outils personnalisée avoir un menu dérou lante
( à la manière des liste de polices ou de style de la barre de mise e n forme
d'Excel) et chaque option donnerait accès à une macro...

Quelqu'un a t'il une idée ou un exemple duquel je pourrais m'inspirer?

Un gros merci et une bonne journée

Greg


Avatar
Gregory Hilaire
wow! C'est du service hyper rapide ...

Un grand merci JB

Juste deux questions pour mieux comprendre : La largeur de la boite
d'affichage est elle fixe? Ou on peut décider de sa grandeur?

Il exécute toujours la première macro même quand je choisie la seconde
Option ... J'investigue pour voir si j'ai mal retranscrit quelque chose.

Merci encore

Greg

"JB" a écrit dans le message de news:

Bonjour,

Sub auto_open()
On Error Resume Next
Set Barre = CommandBars.Add
Barre.Name = "BarreMacros"
Barre.Visible = True
Set Menu = Barre.Controls.Add(msoControlComboBox)

Menu.AddItem "Macro1"
Menu.OnAction = "Macro1"

Menu.AddItem "Macro2"
Menu.OnAction = "Macro2"
Menu.Text = "Sélectionner puis choisir"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreMacros").Delete
End Sub

Sub macro1()
MsgBox "macro1"
End Sub

Sub macro2()
MsgBox "macro2"
End Sub

JB
http://boisgontierjacques.free.fr




On 19 juil, 06:51, "Gregory Hilaire" wrote:
Bien le bonjour le groupe!

Je voudrais dans une barre d'outils personnalisée avoir un menu déroulante
( à la manière des liste de polices ou de style de la barre de mise en
forme
d'Excel) et chaque option donnerait accès à une macro...

Quelqu'un a t'il une idée ou un exemple duquel je pourrais m'inspirer?

Un gros merci et une bonne journée

Greg


Avatar
Fredo P
Bonjour Gregory
Il y a un outil spécialement pour cela
Clic droit sur la barre des menus>personnaliser>outils>macro
"Gregory Hilaire" a écrit dans le message de news:

Bien le bonjour le groupe!

Je voudrais dans une barre d'outils personnalisée avoir un menu déroulante
( à la manière des liste de polices ou de style de la barre de mise en
forme d'Excel) et chaque option donnerait accès à une macro...

Quelqu'un a t'il une idée ou un exemple duquel je pourrais m'inspirer?

Un gros merci et une bonne journée

Greg



Avatar
JB
Sub auto_open()
On Error Resume Next
Set Barre = CommandBars.Add
Barre.Name = "BarreMacros"
Barre.Visible = True
Set Menu = Barre.Controls.Add(msoControlComboBox)

Menu.AddItem "Macro1"
Menu.AddItem "Macro2"
Menu.AddItem "Macro3"
Menu.OnAction = "Macro"
Menu.Text = "Sélectionner puis choisir"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreMacros").Delete
End Sub

Sub macro()
choix = CommandBars("BarreMacros").Controls(1).Text
Run choix
End Sub

Sub macro1()
MsgBox "macro1"
End Sub

Sub macro2()
MsgBox "macro2"
End Sub

Sub macro3()
MsgBox "macro3"
End Sub

JB


On 19 juil, 08:06, "Gregory Hilaire" wrote:
wow! C'est du service hyper rapide ...

Un grand merci JB

Juste deux questions pour mieux comprendre : La largeur de la boite
d'affichage est elle fixe? Ou on peut décider de sa grandeur?

Il exécute toujours la première macro même quand je choisie la seco nde
Option ... J'investigue pour voir si j'ai mal retranscrit quelque chose.

Merci encore

Greg

"JB" a écrit dans le message de news:

Bonjour,

Sub auto_open()
   On Error Resume Next
   Set Barre = CommandBars.Add
   Barre.Name = "BarreMacros"
   Barre.Visible = True
   Set Menu = Barre.Controls.Add(msoControlComboBox)

   Menu.AddItem "Macro1"
   Menu.OnAction = "Macro1"

   Menu.AddItem "Macro2"
   Menu.OnAction = "Macro2"
   Menu.Text = "Sélectionner puis choisir"
End Sub

Sub auto_close()
   On Error Resume Next
   CommandBars("BarreMacros").Delete
End Sub

Sub macro1()
  MsgBox "macro1"
End Sub

Sub macro2()
  MsgBox "macro2"
End Sub

JBhttp://boisgontierjacques.free.fr

On 19 juil, 06:51, "Gregory Hilaire" wrote:



> Bien le bonjour le groupe!

> Je voudrais dans une barre d'outils personnalisée avoir un menu dér oulante
> ( à la manière des liste de polices ou de style de la barre de mise en
> forme
> d'Excel) et chaque option donnerait accès à une macro...

> Quelqu'un a t'il une idée ou un exemple duquel je pourrais m'inspirer ?

> Un gros merci et une bonne journée

> Greg- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
Gregory Hilaire
Désolé d'insister fredo mais après Personnaliser je ne vois pas l'option
Outils? Et il est supposé faire quoi exactement ? Me permettre d'ajuster le
menu déroulant dans la barre d'outils?

Un gros Merci
Greg

"Fredo P" a écrit dans le
message de news:
Bonjour Gregory
Il y a un outil spécialement pour cela
Clic droit sur la barre des menus>personnaliser>outils>macro
"Gregory Hilaire" a écrit dans le message de news:

Bien le bonjour le groupe!

Je voudrais dans une barre d'outils personnalisée avoir un menu
déroulante ( à la manière des liste de polices ou de style de la barre de
mise en forme d'Excel) et chaque option donnerait accès à une macro...

Quelqu'un a t'il une idée ou un exemple duquel je pourrais m'inspirer?

Un gros merci et une bonne journée

Greg







Avatar
Fredo P
"Gregory Hilaire" a écrit dans le message de news:

Désolé d'insister fredo mais après Personnaliser je ne vois pas l'option
Outils? Et il est supposé faire quoi exactement ? Me permettre d'ajuster
le menu déroulant dans la barre d'outils?



Alors :
Clic droit sur la barre des menus en partie ou il n'y a
rien>Personnaliser>Commandes>Outils , à droite de la boite de dialogue,
chercher "Macro", le sélectionner et l'emmener vers la barre des menus :
Nickel Chrome!!. Tu peux ensuite personnaliser ce bouton de commande en
resélectionnant "Personnaliser" >Éditeur de bouton.