[EXCEL] Création de boutons et procédure évenementiel associée [Résolu]

tregnier - 8 févr. 2017 à 12:00 - Dernière réponse :  tregnier
- 8 févr. 2017 à 15:15
Bonjour,

Le problème a déjà été soumis quelques fois, cependant je n'ai jamais reussi à l'appliquer dans mon cas... Désolé s'il y a doublon.

Pour le besoin d'un programme, je génère dans un userform un certain nombre de bouton sur différents onglets. Pas de soucis, j'ai réussi à le faire.
Maintenant, j'aimerai que ces boutons déclenchent une procédure au moment où l'on clique dessus. Il s'agit de la même procédure pour tous, disons ouvrir une msgbox "toto", je me débrouille pour le reste.

Mon problème vient du fait que je ne sais quel "nom" inscrire dans le code de la procédure... Si quelqu'un a une solution!

Set go(j) = ongletPoule(i).Controls.Add("Forms.CommandButton.1")
            Code = "Private Sub " & "CommdnButton.1" & "_Click()" & vbCrLf
            Code = Code & " Msgbox ""Bonjour""" & vbCrLf
            Code = Code & "End Sub"
            
            With go(j)
                .Caption = "Jouer"
                .Top = t + 8
                .Left = 210
                .Name = "g;" & i & ";" & j & ";" & k

            End With
            
            With ThisWorkbook.VBProject.VBComponents("UserForm2").CodeModule
                .AddFromString Code
            End With


Merci beaucoup,

Theo
Afficher la suite 

2 réponses

Répondre au sujet
cs_Le Pivert 4779 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 16 décembre 2017 Dernière intervention - Modifié par cs_Le Pivert le 8/02/2017 à 12:05
Commenter la réponse de cs_Le Pivert
0
Utile
Le lien de silkyroad marche à la perfection, merci!
Sujet résolu ;)
Commenter la réponse de tregnier