Bonjour,

Je doit créer des bouton de commande par une macro car leur nombres est variable. J'ai réussi a les créer, les positionner et les nommer ( je crois ). Par contre, impossible de leur affecter une action.

Voici mon code épuré de tous ce qui est inutile à ma question :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub UserForm_Initialize()
j = 4
k = 0
Toop = 0
 
start:
k = k + 1
Toop = Toop + 20
 
 
    Set Obj = Me.Controls.Add("forms.CommandButton.1", "Up" & k)
    With Obj
        .Name = "Up" & k
        .Caption = "+"
        .Left = 12
        .Top = Toop
        .Width = 18
        .Height = 18
    End With
 
 
If Not k = j Then GoTo start
 
Me.Height = Toop + 90
 
End Sub
 
Private Sub Up1_Click()
MsgBox "Ca marche !"
End Sub
J'ai bien essayé de rajouter un .OnAction à la création du bouton mais je rencontre cette erreur :
"Erreur d’exécution 438 : Propriété ou méthode non gérée par cet objet"

Je suis désolé de vous solliciter sur ce problème, je suis bien persuadé que cette question à du un jour obtenir une réponse sur un forum mais je n'arrive pas à mettre la main dessus...

Merci d'avance de vos réponse.