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

Résolu/Fermé
tregnier - 8 févr. 2017 à 12:00
 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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 8/02/2017 à 12:05
Bonjour,

voir ceci, a adapter:

https://www.commentcamarche.net/faq/31279-vba-ajouter-des-controles-dynamiquement-dans-un-userform

et aussi ici:

https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LV-A

@+ Le Pivert
0
Le lien de silkyroad marche à la perfection, merci!
Sujet résolu ;)
0