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

Signaler
-
 tregnier -
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

2 réponses

Messages postés
7337
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 avril 2021
625
Le lien de silkyroad marche à la perfection, merci!
Sujet résolu ;)