Quand vous avez fini d'écrire une macro Excel, vous souhaitez souvent un moyen facile de le lancer. De nombreux utilisateurs choisissent un raccourci clavier traditionnel , tandis que d'autres choisissent une autre méthode, comme un bouton de commande qui exécute la macro lorsque vous cliquez dessus . Si vous avez écrit une macro exceptionnel , cependant, vous voudrez peut-être de le placer directement dans le menu Excel. Dans Excel 2003, utilisez Visual Basic pour Applications ( VBA) pour créer un nouvel élément de menu. Ajoutez autant d'options que vous le souhaitez . Cassez les options en groupes avec des lignes de coupe , et vous aurez un menu personnalisé professionnel. Instructions
1

Démarrer Excel 2003.
2

Ouvrez Visual Basic Editor . Sélectionnez " Outils ", puis " Macro ", puis " Visual Basic Editor" dans le menu.
3

insérer un module vierge pour votre code. Sélectionnez " Insérer ", puis " Module " dans le menu .
4

Démarrer une nouvelle sous-procédure . Tapez la commande suivante :

Sous PersoMenu ()

Excel va automatiquement ajouter une instruction " End Sub "
5

définir des variables . . Tapez la commande suivante entre le "Sub" et les déclarations " End Sub" :

MenuObject As CommandBarPopup

MenuItem As Object
6

Supprimer toutes les instances existantes de votre menu personnalisé . Cela évite les doublons si vous exécutez le code plus d'une fois . Tapez la commande suivante : . .

On Error Resume Next

Application.CommandBars ( 1) Commandes ( " & My Macro" ) Supprimer

On Error GoTo 0 < br > Photos 7

créer une nouvelle option de menu «My Macro ». Utilisez une valeur de paramètre de 10 dans la déclaration "Set" pour le placer devant " Aide", le point 10 dans le menu Excel. Tapez la commande suivante : .

Set MenuObject = Application.CommandBars (1) Controls.Add (Type: = msoControlPopup , Avant: = 10, temporaire : = True)

MenuObject.Caption = " & My Macro "
8

Ajoutez deux éléments au menu , avec une ligne de coupe entre eux. Créer la ligne de coupe en définissant la propriété " BeginGroup " dans le deuxième point à

Set MenuItem = MenuObject.Controls.Add (Type: = msoControlButton ) «vrai».

MenuItem.OnAction = " MacroName "

MenuItem.Caption = "& Run"

Set MenuItem = MenuObject.Controls.Add (Type: = msoControlButton )

MenuItem.OnAction = " À propos "

MenuItem.Caption =" & propos Macro "

MenuItem.BeginGroup = True
9

exécuter le code. Cliquez sur "Exécuter ", puis " Exécuter Sub /UserForm " dans le menu . Lorsque vous revenez à la feuille de calcul , vous verrez "Ma Macro" dans le menu , avant " d'aide". Cliquez pour afficher les deux options de menu , séparés par une ligne de coupe .