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

Détection clique bouton activex

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

jacks39

XLDnaute Junior
Bonjour à tous,

Serait-il possible de détecter le clique d'un bouton activex fraichement créé ?

Plus précisément, j'aimerais savoir si il est possible de connecter un bout de code (ex : msgbox "coucou") à un bouton activex venant d'être créé sans passé par la manipulation : clique droit sur le bouton, affecter une macro..
mais plutot de manière automatique que lorque je créer le bouton, il se connecte automatiquement à la macro contenant le message coucou.

Je ne sais pas si je suis très clair mais n'hésitez pas à me demander si besoin.

En vous remerciant d'avance,

Jacks
 
Re : Détection clique bouton activex

Pierrot93,

Il est vrai que je n'ai pas été voir dans le forum.

je vais jeter un coup d'oeil même si je n'y connais absolument rien en module de classe.

Pas possible de réaliser cela sans passer par les classe ?

A+
 
Re : Détection clique bouton activex

Re,

A noter, en mode création, lorsque du double click sur le bouton créé, la procédure de l'événement "click" de ce même bouton est créée dans l'éditeur visual basi, ce dans le module de la feuille concernée...
 
Re : Détection clique bouton activex

Oui je sais bien sauf que le contenu de l'évenement click est vide et l'objectif étant que cette évenement click soit connecté systématique à chaque création de bouton à une macro message (sub message() msgbox "coucou" end sub).

Pour cela il faudrait que je détecte le click du bouton et qu'ensuite j'appel la macro message mais je ne sais pas connait pas l'instruction qui me permet de le faire (de détecter ce click).

Jacks
 
Re : Détection clique bouton activex

Littéralement j'aimerais qu'a chaque ajout de feuille sur excel ces différentes taches soit exécuté :
- création d'un bouton de controles Activex (de manière automatique)
- qu'a ce bouton soit associé une macro message (de manière automatique)

que lorque que l'on click sur le bouton la macro s'execute sans avoir à entrer dans l'évenement du bouton et taper du code.
 
Re : Détection clique bouton activex

Re,


essaye ceci, code à placer dans le module "thisworkbook" :

Code:
Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim b As OLEObject, code As String
Set b = Sh.OLEObjects.Add("Forms.CommandButton.1")
With b
    .Left = 4
    .Top = 4
    .Width = 100
    .Height = 30
End With
code = "Sub CommandButton1_Click()" & vbCrLf
code = code & "   MsgBox ""Coucou...""" & vbCrLf
code = code & "End Sub"
With ThisWorkbook.VBProject.VBComponents(Sh.Name).CodeModule
    .InsertLines .CountOfLines + 1, code
End With
End Sub

Edition bonjour Laetitia🙂
 
Re : Détection clique bouton activex

Bonjour Laetitia90,

Oui pourquoi pas avec les boutons formulaire du moment que j'arrive à atteindre mon objectif c'est a dire détecter le click du bouton pour pouvoir ensuite appeler une macro.
 
Re : Détection clique bouton activex

OUI Pierrot93 c'est exactement ce que je voulais.... MERCI 1000 FOIS.

Dernière petite et dernière faveur, serait il possible de commenter ton code que je puisse éssayer de comprendre un minimum stp.

J'aimerais à l'avenir pouvoir faire cela tout seul comme un grand ;-)

PS : TU ES UN CHEF ENCORE MERCI ;-)
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…