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 :
J'ai bien essayé de rajouter un .OnAction à la création du bouton mais je rencontre cette erreur :
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
"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.
Partager