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
anomymousA
bonjour,
sans garanties, car pas essayé. Il me semble que tu crées une barre d'outils supplémentaire. Par défaut celle-ci est evidemment horizontale, et les controles "chapeaux" qui sont contenus sont forcément l'un à côté de l'autre ce que tu fais en réalité. Si tu veux avoir tes controles l'un en dessous de l'autre, il te faut créer un controle dans une barre d'outils existante et déclarer tes controles comme controles dépendants (don i.e comme des sous controles). Autre solution, toujours créer ta barre de commandes mais creer un controle que tu nommeras comme tu veux et qui lui même aura tes deux controles en sous-menu.
A part ça , je ne vois pas mais sait-on jamais? Magie d'Excel.
A+
Bonjour,
J'utilise le code suivant pour créer une BO à l'ouverture de mon fichier
Sub toto()
Set b1=CommandBars.Add("MaBarre")
Set bt1±.Controls.Add(msoControlButton) bt1.Style=msoButtonCaption bt1.Caption="MonBouton1" bt1.Onaction="Macro1"
Set bt2±.Controls.Add(msoControlButton) bt2.Style=msoButtonCaption bt2.Caption="MonBouton1" bt2.Onaction="Macro1"
End Sub
Comment faire pour que les deux boutons soient l'un sous l'autres SANS passer par un menu ?
Merci
bonjour,
sans garanties, car pas essayé. Il me semble que tu crées une barre d'outils
supplémentaire. Par défaut celle-ci est evidemment horizontale, et les
controles "chapeaux" qui sont contenus sont forcément l'un à côté de l'autre
ce que tu fais en réalité.
Si tu veux avoir tes controles l'un en dessous de l'autre, il te faut créer
un controle dans une barre d'outils existante et déclarer tes controles comme
controles dépendants (don i.e comme des sous controles).
Autre solution, toujours créer ta barre de commandes mais creer un controle
que tu nommeras comme tu veux et qui lui même aura tes deux controles en
sous-menu.
A part ça , je ne vois pas mais sait-on jamais? Magie d'Excel.
A+
Bonjour,
J'utilise le code suivant pour créer une BO à l'ouverture de mon fichier
Sub toto()
Set b1=CommandBars.Add("MaBarre")
Set bt1±.Controls.Add(msoControlButton)
bt1.Style=msoButtonCaption
bt1.Caption="MonBouton1"
bt1.Onaction="Macro1"
Set bt2±.Controls.Add(msoControlButton)
bt2.Style=msoButtonCaption
bt2.Caption="MonBouton1"
bt2.Onaction="Macro1"
End Sub
Comment faire pour que les deux boutons soient l'un sous l'autres SANS
passer par un menu ?
sans garanties, car pas essayé. Il me semble que tu crées une barre d'outils supplémentaire. Par défaut celle-ci est evidemment horizontale, et les controles "chapeaux" qui sont contenus sont forcément l'un à côté de l'autre ce que tu fais en réalité. Si tu veux avoir tes controles l'un en dessous de l'autre, il te faut créer un controle dans une barre d'outils existante et déclarer tes controles comme controles dépendants (don i.e comme des sous controles). Autre solution, toujours créer ta barre de commandes mais creer un controle que tu nommeras comme tu veux et qui lui même aura tes deux controles en sous-menu.
A part ça , je ne vois pas mais sait-on jamais? Magie d'Excel.
A+
Bonjour,
J'utilise le code suivant pour créer une BO à l'ouverture de mon fichier
Sub toto()
Set b1=CommandBars.Add("MaBarre")
Set bt1±.Controls.Add(msoControlButton) bt1.Style=msoButtonCaption bt1.Caption="MonBouton1" bt1.Onaction="Macro1"
Set bt2±.Controls.Add(msoControlButton) bt2.Style=msoButtonCaption bt2.Caption="MonBouton1" bt2.Onaction="Macro1"
End Sub
Comment faire pour que les deux boutons soient l'un sous l'autres SANS passer par un menu ?
