Menu

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

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

cs_Le Pivert 5144 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 19 mai 2018 Dernière intervention - Modifié par cs_Le Pivert le 8/02/2017 à 12:05
0
Utile
Le lien de silkyroad marche à la perfection, merci!
Sujet résolu ;)