Discussion :

[Etudiant57]

Bonjour à tous,

Voilà je vous présente mon soucis, je souhaite créer des boutons de façon dynamique, mais je n'arrive pas à implémenter du code pour ces boutons.

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
31
32
33
34
35
36
37
38
39
40
41
42
Dim Test(10) As String
Dim T1 As String
Dim Para, Help, Nom_Control As String
Dim i, j, x, y As Integer
Dim Button As MSForms.CommandButton
Function Button1()
MsgBox ("ça marche")
End Function
Private Sub UserForm_Initialize()
Sheets("Base").ScrollArea = "A1:AZ50"
    For i = 1 To 10
        If Sheets("Base").Range("B" & (i + 15)).Value = "" Then
        j = j + 1
        Else
        j = j + 1
        Test(i) = Sheets("Base").Range("B" & (j + 15)).Value
        T1 = Test(i)
            Nom_Control = "Forms.CommandButton.1"
            If i > 7 Then
            y = 70 + (i - 2) * 40
            Else
            y = 70 + (i - 1) * 40
            End If
            Set Button = Me.Controls.Add(Nom_Control)
            With Button
                .Top = y
                .Left = 100
                .Height = 30
                .Width = 210
                .Caption = T1
                .Visible = True
                .ForeColor = &H80000012
                .BackStyle = fmBackStyleTransparent
                .PicturePosition = fmPicturePositionAboveCenter
                .TabIndex = 0
                .Name = "CommandButtonDetail_" & i
                .OnAction = "'Button1'" ''--> c'est ici que ça coince
            End With
        End If
    Next i
Sheets("Base").ScrollArea = "A1:AK24"
End Sub

Comment faire pour lancer ma fonction à partir de mon bouton ?

Merci d'avance !

[parmi]

As-tu essayé sans les apostrophes ?

Code :

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

.OnAction = "Button1"

[Invité]

Remarque: Tu crées ton code avant la création de tes boutons ?
C'est une méthode assez étrange.

[Etudiant57]

Oui j'ai essayé sans les apostrophes et ça me fait la même chose, apparamant c'est la bonne syntaxe à utiliser !

Je crée le code sous forme de fonction de mon bouton avant car il n'existe pas, et n'existera uniquement qu'une fois le programme lancer.

L'idée serait de dire : pour le bouton1 allez a fonction1, bouton2 fonction2, etc etc...

[Invité]

Comment sont déclarées tes fonctions ?

[Etudiant57]

Code :

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

1
2
3
Function Button1()
MsgBox ("ça marche")
End Function