Menu contextuel perso double exécution

  • Initiateur de la discussion Initiateur de la discussion MystSith
  • 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 !

MystSith

XLDnaute Nouveau
Bonjour,

J'ai besoin d'intégrer au menu contextuel d'excel (sur l'objet cellule) un bouton personnalisé.
J'arrive bien à avoir le bouton dans le menu, à exécuter la procédure attachée mais le problème est que cette même procédure s'exécute 2 fois.

Voici le code test que j'utilise:

Private Sub Workbook_Open()

Dim Bo As CommandBarButton
Application.CommandBars("Cell").Reset
Set Bo = Application.CommandBars("Cell").Controls.Add(msoControlButton, , , 1, Temporary:=True)

Bo.Caption = "Essai"
B😵nAction = "Essai()"

End Sub

Public Sub Essai()

Range("A1").Value = Range("A1").Value + 1

End Sub

Normalement après validation du bouton personnalisé dans le menu contextuel, je devrais avoir la valeur 1 dans la cellule A1 mais ma valeur est égale à 2, ou encore si je remplace ce calcul par l'affichage d'une MsgBox("Ceci est un test"), cette dernière s'affiche 2 fois.

Pourquoi cette double exécution?

Merci d'avance
 
Re : Menu contextuel perso double exécution

Voilà 🙂 ... en enlevant les parenthèses dans le .onaction, ça fonctionne.

Si on met B😵nAction = "Essai()" -> double exécution
Si on met B😵nAction = "Essai" -> simple exécution
On peut également comme tu l'as fait rajouter le nom du module devant, ça fonctionne aussi.

Merci à toi
 
- 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