AJOUT D'UN MENU EXCEL EN VBA (AVEC N ITEMS) EN UNE LIGNE DE CODE
Afyn
Messages postés
608
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016
-
12 nov. 2004 à 20:10
cs_patosch Messages postés 42 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 26 juin 2013 - 14 mai 2013 à 12:51
cs_patosch Messages postés 42 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 26 juin 2013 - 14 mai 2013 à 12:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27522-ajout-d-un-menu-excel-en-vba-avec-n-items-en-une-ligne-de-code
https://codes-sources.commentcamarche.net/source/27522-ajout-d-un-menu-excel-en-vba-avec-n-items-en-une-ligne-de-code
14 mai 2013 à 12:51
pour les icons il suffit d'ajouter un array contenant les numero d'ID
un peu comme ceci:
'Procédure appelante ajout d'un menu avec n items
'----------------------------------------------------------------
Private Sub Workbook_Open()
Dim nomitems, proc, icons
SuprMenuX ("NomDuMenu")
nomitems = Array("NomItem1", "NomItem2", "NomItem3")
proc = Array("Procedure1", "Procedure2", "Procedure3")
icons = Array(256, 136, 1066)
' remplacer NomDuMenu, NomItemX, ProcedureX (le nombre d'items et de procédures doit être identique
AjMenuX "NomDuMenu", nomitems, proc, icons
End Sub
'Procédure appelante suppression d'un menu
'--------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SuprMenuX ("NomDuMenu")
End Sub
'================
'Procédures appelées
'================
' Procédure d'ajout d'un menu
'-------------------------------------
Sub AjMenuX(NomMenu, TbItem, TbLien, icon) 'sub plus les 3 arguments (array)
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = NomMenu
For Each Value In TbItem
Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton) 'on ajoute un bouton
ctrl1.Caption = Value 'le titre du bouton
ctrl1.TooltipText = Value 'l'infobule du bouton
ctrl1.Style = 3 'le style de bouton(3 en l'ocurence caption,texte,icon)
ctrl1.FaceId = icon(i) 'on attribu l'icon avec l'array icon
ctrl1.OnAction = TbLien(i) 'lien vers la macro qui lui est attribuée
i = i + 1 'decompte pour le array
Next Value
End Sub
'Procédure de supperssion d'un menu
'-----------------------------------------------
Sub SuprMenuX(NomMenu As String)
On Error Resume Next
Set myMenuBar = CommandBars.ActiveMenuBar
myMenuBar.Controls(NomMenu).Delete
End Sub
13 mai 2013 à 20:52
13 déc. 2010 à 18:39
c'est ".faceID=X" X etant le numero de l'icons il y en a plus de 10000 je crois
24 déc. 2008 à 14:15
Bravo
16 janv. 2007 à 22:23
Nickel, merci !
11 sept. 2006 à 12:06
31 août 2006 à 08:51
Acceuil:
http://ericrenaud.free.fr/index.html
Menu et barre d'outils:
http://ericrenaud.free.fr/menubarre.htm
26 janv. 2006 à 17:21
Et pour la suite, créer une barre d'outil paramétrable depuis une feuille Excel ?
30 nov. 2005 à 19:04
Je pense que j'utiliserai ton code dans mes projets. IL simplifie vraiment la vie... De plus, il consistue une excellente base pour l'étoffer. Merci.
Amicalement,
Us.
14 oct. 2005 à 08:28
16 nov. 2004 à 12:19
Mais as-tu un solution pour mettre l'icone de ton choix sur un bouton ?
Ou comment faire entrer une icone dans la collection office disponible.
12 nov. 2004 à 20:10
On peut également faire des menus contextuel ? (Clic droit)
A+
Afyn
Navedac