Ajouter Menu automtiquement avec macro complémentaire

[oudjat]

[Resolu] Ajouter Menu automtiquement avec macro complémentaire

Bonjour à tous,

je voudrais que lorsque l'on ajoute ma macro complémentaire cela ajoute un menu (le code est en dessus) et que pour chaque sous menu cela exécute une fonction

Sub CreateMenu()
Dim LeMenu As CommandBarPopup
    With Application.CommandBars(1)
        Set LeMenu = .Controls.Add _
            (Type:=msoControlPopup)
    End With
    LeMenu.Caption = "Menu"
    With LeMenu.Controls.Add(msoControlButton)
        .Caption = "1 en 1"
        .OnAction = "!<Fct1>"
    End With
    With LeMenu.Controls.Add(msoControlButton)
        .Caption = "5 en 5"
        .OnAction = "!<Fct2>"
    End With
End Sub
'-----------------------------------
Function Fct1()
   Dim Cellule As Object
  For Each Cellule In Selection
    Ctr = Ctr + 1
    Cellule = Ctr
  Next
End Function
'-----------------------------------
Function Fct2()
   Dim Cellule As Object
  For Each Cellule In Selection
    Ctr = Ctr + 5
    Cellule = Ctr
  Next
End Function

Voici un exemple simple
Dans mon fichier xla, il faut que je mette quoi le menu et mes 2 fonctions 😕
Merci de votre aide

 

[Pierrot93]

Re : Ajouter Menu automtiquement avec macro complémentaire

Bonjour Oudjat

si j'ai bien compris, je dirais tout à mettre dans ton fichier xla, les fonctions dans un module standard, ta création de menu dans l'événement "open" du module "ThisWorkbook".

@+

 

[oudjat]

Re : Ajouter Menu automtiquement avec macro complémentaire

merci Pierrot93, j'ai ajouté le code suivant dans ThisWorkbook et cela fonctionne.

Private Sub Workbook_Open()
    AjoutMenu
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    DelMenu
End Sub