menu dans excel

bonjour,
savez vous comment créer un menu (comme Fichier, Edition, Affichage,...) dans excel ?
merci

un clic du bouton droit sur le menu puis personalisé... nouvelle barre d'outils...

Salut

On vient justement de voir ça au collège.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CmdCreerMenuPersonnalise_Click() 'bouton sur la feuille
Dim laMonMenu As CommandBar
Dim laItemMenu As CommandBarControl
Dim laNouvelItem AsCommandBarControl
Dim liPosMenu As Integer
Dim lbMenuPresent As Boolean
' Vérifier si le menu est déjà créé
liPosMenu = 1
lbMenuPresent = False
Set laMonMenu = Application.CommandBars.ActiveMenuBar
For Each laItemMenu In laMonMenu.Controls
    If laMonMenu.Controls(liPosMenu).Caption = "Test de &menu" Then
        lbMenuPresent = True
    End If
    liPosMenu = liPosMenu + 1
Next laItemMenu
' Construire le menu s'il n'existe pas
If lbMenuPresent Then
    Set laItemMenu = laMonMenu.Controls.Add (Type:=msoControlPopup)
    laItemMenu.Conrols(liPosition).Move Before:=liPosMenu - 1 'avant menu ?
    Set laNouvelItem = laItemMenu.Controls.Add
    laNouvelItem.Caption = "Créer &en-tête"
    laNouvelItem.OnAction = "CreerEntete" ' nom de la macro liée au menu
' ...
End if
End sub

Il faudra aussi effacer le menu...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
...
' vérifier si le menu existe
For Each laItemMenu In laMonMenu.Controls
    if laMonMenu.Controls(liPosMenu).Caption = "Test de &menu" then
        lbMenuPresent = True
        liPosition = liPosMenu
    End If
    liPosMenu = liPosMenu + 1
Next laItemMenu
' effacer le menu
If lbMenuPresent Then
    laMonMenu.Controls(liPosition).Delete
End If

source : Exercice pratique VBA Excel, Cours Applications de bureau, Cégep de Rimouski, Prof. : Jeanne Marquis

Amuse toi bien
zaza