Lancer deux Macros avec un menu contextuel

  • Initiateur de la discussion Initiateur de la discussion softimen
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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..??)
 
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 😀 .
 

Pièces jointes

  • dupliquer.PNG
    dupliquer.PNG
    32.8 KB · Affichages: 46
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour