Lancer deux Macros avec un menu contextuel

[softimen]

Bonjour,

J' ai besoin de votre aide s'il vous plait .

J'ai deux Macros .
Macro1 : Duplication de la ligne
Macro2: Duplication avec incrémentation.

Je voudrais lancer chacun de ces Macro avec un Menu contextuel -clique droit de souris .

J'ai réussi à lancer la premier macro 1 avec menu contextuel mais pour la deuxième Macro , j'ai eu de difficulté .
Je voudrais trouver les deux macros dans un menu contextuel pour les lancer différemment.

J'éspere que j'ai bien expliquer mon probléme.

Je vous remercie d'avance pour votre aide .
'code VBA
Private Sub Workbook_Open()
Call Creer_Menu_Contextuel_2
End Sub

Sub Creer_Menu_Contextuel_2()

'réinitialize la sourie comme à l'origine
Application.CommandBars("Cell").Reset

'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Duplication de la ligne" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
.OnAction = "dupliquerlignes" 'appel de la macro
End With

End Sub
Sub reset_menudroit()
CommandBars("Cell").Reset
End Sub

 

[vgendron]

Bonjour
le code que tu postes créer UNE commande (Dupliquer ligne)
toi. en souhaites DEUX...
suffit de copier coller la partie qui ajoutte le nom de la macro dans le menu

'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Duplication de la ligne" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
.OnAction = "dupliquerlignes" 'appel de la macro
End With


'Crée une commande dans le menu
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "NOMMACRO" 'le nom de la commande
.BeginGroup = True 'ligne facultative si elle est précisée alors
.OnAction = "NOMMACRO" 'appel de la macro
End With

NOMMACRO a remplacer par le nom de la deuxième macro (Grouper..??)

 

[softimen]

Bonjour Vgendron

Merci comme d'habitude pour votre aide .

En fait je voudrai lancer la macro que vous m'avez fait hier duplication avec incrémentation
En effet , on progresse , maintenant j'ai les deux macro sur le menu contextuel , je peux exécuter le premier mais pour la deuxième , j'ai cette erreur .

Merci .

 

[vgendron]

Je viens de reprendre le fichier de l'autre post.. et j'ai ajouté les deux macros dans le menu contextuel

Pas de bug chez moi.. ??

 

[softimen]

A chaque fois , vous trouvez la solution à mon problème .

en fait , quand j'ai redémarré mon pc , Ca fonctionne .

Merci énormément pour votre temps et votre aide .

Sujet résolu