Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
    32.8 KB · Affichages: 45

Discussions similaires

Réponses
0
Affichages
352
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…