Affecter une macro à un bouton de formulaire créé dynamiquement

**yelem** · 26/07/2018, 11h08

Bonjour,

J'ai créé un formulaire qui permet à l'utilisateur de rajouter des boutons dans celui-là. La création du nouveau bouton se fait donc de manière dynamique de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim monBouton As Control
Set monBouton = Me.Controls.Add("Forms.CommandButton.1", "Bouton_" & i , True)

De là, mon bouton se crée bel et bien, mais je souhaiterai lui affecter une macro. D'après mes recherches je dois utiliser .OnAction = "maMacro" mais lorsque j'écris Bouton_1.OnAction = "MaMacro", cela ne fonctionne pas....
Toutes les pistes que je trouve portent sur des boutons qui se trouvent dans une feuille et non dans un formulaire du coup ça n'est apparemment pas adapter...

Merci de votre aide.

**patricktoulon** · 26/07/2018, 11h23

bonjour

le".onaction" c'est fait pour les control formulaire dans un sheets pas pour un ACTIVX dans un formulaire(userform)

il te faut classer des control dans un module classe et creer leur evenement

ton exposé est bien trop mince pour aller plus loin
il faudrait que tu detaille ton project voir ton code initial

**yelem** · 26/07/2018, 11h40

Bonjour,

Merci pour votre réponse rapide.
Voici mon code plus détaillé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub AjoutBouton_Click()
    Dim num_bouton As Integer
    num_bouton = sheets("parametres").Range("A2").Value
    Call AjoutBouton(num_bouton, 40 + (num_bouton - 1) * 20)
End Sub
 
Private Function AjoutBouton(ByVal iteration As Integer, ByVal decalage_haut As Integer)
    Dim nouveauBouton As Control
    Set nouveauBouton = Me.Controls.Add("Forms.CommandButton.1", "Bouton_" & iteration, True)
    nouveauBouton.Height = 18
    nouveauBouton.Left = 232
    nouveauBouton.Top = decalage_haut
    nouveauBouton.Width = 18
    nouveauBouton.Caption = "..."
End Function

Il faut donc que je crée tout cela à partir d'une classe c'est bien ça ?

Merci

**Menhir** · 26/07/2018, 11h43

Envoyé par yelem

lorsque j'écris Bouton_1.OnAction = "MaMacro", cela ne fonctionne pas....

Je ne suis pas spécialiste des UserForm et je peux me tromper mais, à ta place, j'aurais plutôt écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monBouton.OnAction = "MaMacro"

En supposant que ça vienne se placer à la suite du code que tu présentes.

**patricktoulon** · 26/07/2018, 14h00

re
@Menhir
ma propriété ".onaction" n'existe pas pour les activeX (commandbutton,etc...)dans les userforms

cette propriété est pour les shapes et tout control formulaire dans un sheets accessible par la collections"shapes" et non "OLEObject"

c'est pour cela que les activX ont leur propre evenement click,change,mouse_down,etc.......

**patricktoulon** · 26/07/2018, 14h03

re
et entre nous ou est l'utilisté d'un seul bouton dynamique

ne peut il pas etre tout simplement invisible et visible en fonction d'un evenement ou quoiqu'est-ce

une classe controls est faite pour gerer un meme evenement de x controls toi tu en a qu'un tu vois le shmilblik

**yelem** · 26/07/2018, 15h11

En fait le but du programme est de permettre à l'utilisateur d'ajouter des images sur une slide de PPT. Pour cela, il peut paramétrer un formulaire (chemin vers l'image, taille, position, etc...). Le bouton en question sert à ouvrir une fenêtre afin que l'utilisateur choisisse un fichier puis de mettre dans un champ ce chemin absolu vers le fichier.
L'idée est de lui donner la possibilité d'ajouter autant d'images qu'il le souhaite. Pour cela il clique sur un bouton (Ajouter une image) qui lui génère une nouvelle ligne de paramètres (chemin vers l'image, taille, position, etc...) et donc un nouveau bouton pour la recherche du fichier.
Au départ, j'avais effectivement créé une dizaine de lignes de paramètres que j'affichais ou non en fonction de la demande de l'utilisateur. Sauf que certains de ces derniers ont besoin de plus d'une dizaine d'images, d'où la nécessité de permettre au programme de générer lui-même les paramètres donc les boutons et de leur attribuer une macro.

Désolé pour mes explications peut-être pas très claires...

**patricktoulon** · 26/07/2018, 15h14

re
ben oui c'est un fait indeniable tes explications ne sont pas tres claires
quel est le rapport entre le fait que l'on doivent ajouter 1 ou 10 image et le fait d'avoir besoins d'un boutons dynamique
c'est pas clair tout ca !!