O
oudjat
Guest
[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
Voici un exemple simple
Dans mon fichier xla, il faut que je mette quoi le menu et mes 2 fonctions 😕
Merci de votre aide
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
PHP:
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 FunctionVoici un exemple simple
Dans mon fichier xla, il faut que je mette quoi le menu et mes 2 fonctions 😕
Merci de votre aide
Dernière modification par un modérateur: