Signaler

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

Posez votre question tregnier - Dernière réponse le 8 févr. 2017 à 15:15 par 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
Afficher la suite 
Utile
+0
moins plus
Bonjour,

voir ceci, a adapter:

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

et aussi ici:

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

Donnez votre avis
Utile
+0
moins plus
Le lien de silkyroad marche à la perfection, merci!
Sujet résolu ;)
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !