Lancer deux Macros avec un menu contextuel

softimen

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
VB:
'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

XLDnaute Nouveau
Bonjour Vgendron :D

Merci comme d'habitude pour votre aide :D .

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 :D .
 

Pièces jointes

  • dupliquer.PNG
    dupliquer.PNG
    32.8 KB · Affichages: 43

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo