Comment ajouter un bouton personnalisé au clic droit / menu contextuel dans Excel?

Comme le montrent les captures d'écran ci-dessous, de nombreuses personnes ont tendance à ajouter leurs fonctions fréquemment utilisées au menu contextuel d'Excel afin d'utiliser rapidement ces fonctions en un seul clic à l'avenir. Cet article parle de l'ajout d'un bouton de code personnalisé au menu contextuel dans Excel.

Ajouter un bouton personnalisé au menu contextuel dans Excel avec le code VBA

Ajouter un bouton personnalisé au menu contextuel dans Excel avec le code VBA

Incroyable! Utilisation d'onglets efficaces dans Excel comme Chrome, Firefox et Safari!

Économisez 50% de votre temps et réduisez chaque jour des milliers de clics de souris!

Supposons que vous ayez créé un script VBA nommé MyMacro dans votre Excel, et que vous deviez maintenant ajouter cette fonction au menu contextuel pour exécuter le code simplement en cliquant dessus. Veuillez faire comme suit.

1. appuie sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Ce classeur à gauche Le projet NetPoulSafe vitre. Et puis copiez et collez le code VBA ci-dessous dans le Ce classeur (code) fenêtre.

Code VBA: Ajouter un bouton personnalisé au menu contextuel dans Excel

Private Sub Workbook_Deactivate()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
        End With
    On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With

        With cmdBtn
           .Caption = "MyMacro"
           .Style = msoButtonCaption
           .OnAction = "MyMacro"
        End With
    On Error GoTo 0
End Sub

Notes: Dans le code, veuillez tout remplacer «MyMacro» avec le nom de la macro que vous avez créé dans votre Excel.

3. appuie sur le autre + Q touches pour quitter Microsoft Visual Basic pour applications fenêtre.

Maintenant, vous revenez à l'interface Excel, après avoir cliqué avec le bouton droit sur une cellule, vous verrez que le nouveau bouton avec le nom spécifié est ajouté dans le menu contextuel comme illustré ci-dessous. Cliquez sur le bouton pour déclencher immédiatement la macro correspondante.

Articles connexes:

• HComment insérer automatiquement une nouvelle ligne vierge par le bouton de commande dans Excel?
• Comment utiliser le bouton de commande pour enregistrer la feuille de calcul active en tant que fichier PDF dans Excel?
• Comment enregistrer et fermer le classeur actif sans invite par un bouton de commande dans Excel?
• Comment mettre à jour ou insérer la date et l'heure (actuelles) par un bouton de commande dans Excel?
• Comment désactiver le bouton après avoir cliqué une fois dans Excel?

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...