Sujet Précédent Sujet Suivant

Menu CommandBar dans Classeur unique

chtebel Messages postés 62 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 3 janvier 2011 - 12 févr. 2009 à 15:27
 Harmer - 12 août 2013 à 12:22
Bonjour tout le monde,

Je crée un Menu dans excel en vba mais celui ci-est alors disponible dans tous les classeurs excel.

Inseré a louverture du classeur contenant la macro

Y a t il un moyen pour que ce menu ne soit disponible que dans ce classeur.

Voici le code. un onglet du classeur contient les caractéristuique du menu.

Merci a tous
++


<hr />
    Option Explicit
   
Sub CreateMenu()
'   This sub should be executed when the workbook is opened.
'   NOTE: There is no error handling in this subroutine    Dim MenuSheet As Worksheet
    Dim MenuObject As CommandBarPopup

    Dim MenuItem As Object
    Dim SubMenuItem As CommandBarButton
    Dim Row As Integer
    Dim MenuLevel, NextLevel, PositionOrMacro, Caption, Divider, FaceId

''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Location for menu data
    Set MenuSheet = ThisWorkbook.Sheets("MenuSheet")
''''''''''''''''''''''''''''''''''''''''''''''''''''

'   Make sure the menus aren't duplicated
    Call DeleteMenu
   
'   Initialize the row counter
    Row = 2

'   Add the menus, menu items and submenu items using
'   data stored on MenuSheet
   
    Do Until IsEmpty(MenuSheet.Cells(Row, 1))
        With MenuSheet
            MenuLevel = .Cells(Row, 1)
            Caption = .Cells(Row, 2)
            PositionOrMacro = .Cells(Row, 3)
            Divider = .Cells(Row, 4)
            FaceId = .Cells(Row, 5)
            NextLevel = .Cells(Row + 1, 1)
        End With
       
        Select Case MenuLevel
            Case 1 ' A Menu
'              Add the top-level menu to the Worksheet CommandBar
                Set MenuObject = Application.CommandBars(1). _
                    Controls.Add(Type:=msoControlPopup, _
                    Before:=PositionOrMacro, _
                    Temporary:=True)
                MenuObject.Caption = Caption
           
            Case 2 ' A Menu Item
                If NextLevel = 3 Then
                    Set MenuItem = MenuObject.Controls.Add(Type:=msoControlPopup)
                Else
                    Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
                    MenuItem.OnAction = PositionOrMacro
                End If
                MenuItem.Caption = Caption
                If FaceId <> "" Then MenuItem.FaceId = FaceId
                If Divider Then MenuItem.BeginGroup = True
           
            Case 3 ' A SubMenu Item
                Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton)
                SubMenuItem.Caption = Caption
                SubMenuItem.OnAction = PositionOrMacro
                If FaceId <> "" Then SubMenuItem.FaceId = FaceId
                If Divider Then SubMenuItem.BeginGroup = True
        End Select
        Row = Row + 1
    Loop
End Sub

Sub DeleteMenu()
'   This sub should be executed when the workbook is closed
'   Deletes the Menus
    Dim MenuSheet As Worksheet
    Dim Row As Integer
    Dim Caption As String
   
    On Error Resume Next
    Set MenuSheet = ThisWorkbook.Sheets("MenuSheet")
    Row = 2
    Do Until IsEmpty(MenuSheet.Cells(Row, 1))
        If MenuSheet.Cells(Row, 1) = 1 Then
            Caption = MenuSheet.Cells(Row, 2)
            Application.CommandBars(1).Controls(Caption).Delete
        End If
        Row = Row + 1
    Loop
    On Error GoTo 0
End Sub

1 réponse

Réponse 1 / 1
cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
12 févr. 2009 à 19:35
Bonjour

Une solution est d'obliger Excel à ouvrir une nouvelle instance pour chaque classeur. Comme ça ton menu temporaire n'apparaîtra que dans l'instance où il a été créé.

Suis le lien pour avoir les explications...

dans la langue de Shakespeare

Amicalement
0
Harmer
Modifié par Harmer le 12/08/2013 à 12:23
CommandBar Control for displaying commands in a web project
http://www.kettic.com/winforms_ui/commandbar_overview.shtml
0

Discussions similaires

Copier feuille excel dans un autre classeur sans l'ouvrir vb excel
erti1711 -
erti1711 -

4 réponses
menu en c
sebz10 -
decricri62 -

4 réponses
enregistrer un classeur sous forme de .csv avec séparateur
Virginie -
chevalpat -

3 réponses
Générer un code unique
cs_titeuf974 -
yannickn -

14 réponses
Script de vérification pour avoir un username unique
reddjo -
kohntark -

7 réponses
Rejoignez-nous