comment creer une macro a partir d'une liste deroulante
1 réponse
Van Der DeGoch
Je voudras au lieu de plusieurs buton de commandes, créer une macro liée a
une liste deroulante. Aussi je voudrai savoir comment creer un nouveau menu
afin de masquer les onglets des fenetres.
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
JB
Bonjour,
Crée une barre permettant de choisir la macro à exécuter:
Sub auto_open() On Error Resume Next CommandBars("MaBarre").Delete Set barre = CommandBars.Add barre.Name = "MaBarre" barre.Visible = True Set Menu = barre.Controls.Add(msoControlComboBox) Menu.AddItem "TriNom" Menu.AddItem "TriVille" Menu.AddItem "TriDate" Menu.Text = "Sélectionner puis choisir" Menu.OnAction = "MaMacro" End Sub
Sub maMacro() Application.Run CommandBars("MaBarre").Controls(1).Text End Sub
Sub auto_close() On Error Resume Next CommandBars("MaBarre").Delete End Sub
Je voudras au lieu de plusieurs buton de commandes, créer une macro li ée a une liste deroulante. Aussi je voudrai savoir comment creer un nouveau me nu afin de masquer les onglets des fenetres.
Bonjour,
Crée une barre permettant de choisir la macro à exécuter:
Sub auto_open()
On Error Resume Next
CommandBars("MaBarre").Delete
Set barre = CommandBars.Add
barre.Name = "MaBarre"
barre.Visible = True
Set Menu = barre.Controls.Add(msoControlComboBox)
Menu.AddItem "TriNom"
Menu.AddItem "TriVille"
Menu.AddItem "TriDate"
Menu.Text = "Sélectionner puis choisir"
Menu.OnAction = "MaMacro"
End Sub
Sub maMacro()
Application.Run CommandBars("MaBarre").Controls(1).Text
End Sub
Sub auto_close()
On Error Resume Next
CommandBars("MaBarre").Delete
End Sub
On 29 juin, 12:38, Van Der DeGoch
<VanDerDeG...@discussions.microsoft.com> wrote:
Je voudras au lieu de plusieurs buton de commandes, créer une macro li ée a
une liste deroulante. Aussi je voudrai savoir comment creer un nouveau me nu
afin de masquer les onglets des fenetres.
Crée une barre permettant de choisir la macro à exécuter:
Sub auto_open() On Error Resume Next CommandBars("MaBarre").Delete Set barre = CommandBars.Add barre.Name = "MaBarre" barre.Visible = True Set Menu = barre.Controls.Add(msoControlComboBox) Menu.AddItem "TriNom" Menu.AddItem "TriVille" Menu.AddItem "TriDate" Menu.Text = "Sélectionner puis choisir" Menu.OnAction = "MaMacro" End Sub
Sub maMacro() Application.Run CommandBars("MaBarre").Controls(1).Text End Sub
Sub auto_close() On Error Resume Next CommandBars("MaBarre").Delete End Sub
Je voudras au lieu de plusieurs buton de commandes, créer une macro li ée a une liste deroulante. Aussi je voudrai savoir comment creer un nouveau me nu afin de masquer les onglets des fenetres.