Accueil > > > MODIFIER VOTRE BARRE DE MENU EXCEL
MODIFIER VOTRE BARRE DE MENU EXCEL
Information sur la source
Description
Ici, ma deuxieme source en VBA. Il vous permet d'ajouter un nouveau menu à votre barre de menu excel (surement apllicable à Access et toute appli microsoft) avec des sous menus ... qui sont directement associés à vos programme. Pas de Zip ... juste du code ... copier coller.
Source
- 'dans ThisWoorkBook ajouter ...
- Private Sub Workbook_Open()
- Créer_Menu
- End Sub
-
-
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Effacer_Menu
- End Sub
-
- 'dans un nouveau module ajouter ...
- Function Créer_Menu()
-
- For Z = 1 To CommandBars(1).Controls.Count
- If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then Exit Function
- Next
-
- With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
- .Caption = "Mon Menu Perso"
-
- With .Controls.Add(msoControlPopup)
- .Caption = "Menu 1"
- With .Controls.Add(msoControlButton)
- .Caption = "Sous Menu 1.1"
- .OnAction = ""'entre les guillemets : nom de votre procédure
- End With
- With .Controls.Add(msoControlButton)
- .Caption = "Sous menu 2.1"
- .OnAction = ""'entre les guillemets : nom de votre procédure
- End With
- With .Controls.Add(msoControlButton)
- .Caption = "Sous menu 3.1"
- .OnAction = ""'entre les guillemets : nom de votre procédure
- End With
- End With
- '2e Bouton Saisie
- With .Controls.Add(msoControlPopup)
- .Caption = "Menu 2"
- With .Controls.Add(msoControlButton)
- .Caption = "Sous menu 2.1"
- .OnAction = ""'entre les guillemets : nom de votre procédure
- End With
- With .Controls.Add(msoControlButton)
- .Caption = "Sous menu 2.2"
- .OnAction = ""'entre les guillemets : nom de votre procédure
- End With
- End With
- '3e Boutton
- With .Controls.Add(msoControlButton)
- .Caption = "Menu 3"
- .OnAction = ""'entre les guillemets : nom de votre procédure
- End With
-
- End With
- MsgBox "Veuillez lancer les programmes dans la barre de Menu.", vbInformation, "Votre Menu Perso"
- End Function
-
- '******************************************************************
- Function Effacer_Menu()
-
- Next_Z:
- For Z = 1 To CommandBars(1).Controls.Count
- If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then
- CommandBars(1).Controls("Mon Menu Perso").Delete
- GoTo Next_Z
- End If
- Next
-
- '****************************************************************
-
-
-
- End Function
-
'dans ThisWoorkBook ajouter ...
Private Sub Workbook_Open()
Créer_Menu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Effacer_Menu
End Sub
'dans un nouveau module ajouter ...
Function Créer_Menu()
For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then Exit Function
Next
With CommandBars(1).Controls.Add(msoControlPopup, before:=10)
.Caption = "Mon Menu Perso"
With .Controls.Add(msoControlPopup)
.Caption = "Menu 1"
With .Controls.Add(msoControlButton)
.Caption = "Sous Menu 1.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 2.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 3.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
End With
'2e Bouton Saisie
With .Controls.Add(msoControlPopup)
.Caption = "Menu 2"
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 2.1"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
With .Controls.Add(msoControlButton)
.Caption = "Sous menu 2.2"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
End With
'3e Boutton
With .Controls.Add(msoControlButton)
.Caption = "Menu 3"
.OnAction = ""'entre les guillemets : nom de votre procédure
End With
End With
MsgBox "Veuillez lancer les programmes dans la barre de Menu.", vbInformation, "Votre Menu Perso"
End Function
'******************************************************************
Function Effacer_Menu()
Next_Z:
For Z = 1 To CommandBars(1).Controls.Count
If CommandBars(1).Controls(Z).Caption = "Mon Menu Perso" Then
CommandBars(1).Controls("Mon Menu Perso").Delete
GoTo Next_Z
End If
Next
'****************************************************************
End Function
Conclusion
Voila ... c'est pas grand chose ... mais cela pourra servir à quelques personnes ... enfin j'èspere (lol)
Je n'ai pas essayer, mais cela doit etre possible sous toutes les applis microsoft
Bonne Prog
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
menu et barre outil sous excel [ par jraynald ]
J?ai créé une petite application VBA sous excel, mais comment supprimer tous les menu et barre d?outils pour les remplacer par la suite par les mienne
enleve toutes les barres d'outil [ par oliv76n ]
Bonjours,Je viens de fini mon projet et je souhaiterai y enveler toutes les barres d'outils, ainsi que 'la barre de menu'.J'ai déjà fais dans 'Personn
Barre de menu "comme dans Excel" [ par Duke Nukem ]
Salut ,Est il possible de créer dans un userform des boutons qui soient completement "plats" et qui réagissent lorsque la souris passe dessus ( ils pa
excel rubrique du menu disparu [ par jraynald ]
Voila je me retrouve avec un excel dont la barre de menu c'est trouvé diminué de plusieurs catégorie (fichier, donnée et autre), comment restaurer la
Supprimer une barre d'outil par le code [ par florantanplan ]
Ce bout de code est sensé supprimer une barre dans excel 2000: Set objXL = New Excel.Application objXL.DisplayAlerts = False objXL.Visible =
Excel sous Citrix [ par Viviane ]
Bonjour !J'ai une aplli VB qui ouvre des feuilles xls. Ces feuilles contiennent une barre de menu qui activent des icones.Ex : Barre de menu : Fl
Iconbes personnalisées dans une barre d'outil sous excel [ par Chouchensb ]
Bonjour à tous,Alors voilà, j'ai déjà posé plusieurs fois ma question mais je n'ai jamais obtenu de réponse (sniffff ).D
Divers Pb Excel VBA [ par calice23 ]
Bonjour, j'ai différents problemes à résoudre.tout d'abord, je voudrais avoir une ligne de code qui permet d'enlever les messages de confirmations qu'
désactiverla barre de menu standard dans excel [ par Daydayer ]
je voudrais rendre inactive la barre de menu standard des fichiers excel. En effet, je vais créer une barre de menu spéciali
Personnalisation barre d'outil sous Excel [ par btou81 ]
Bonjour,J'ai créé et attribué une barre d'outils spécifique pour un tableau EXCEL.Cette barre d'outil s'ouvre exclusivem
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|