Discussion :

[Nicolas1977]

Bonjour a tous,

je reviens vers vous car je n'ai pas trouvé de réponse a ma question sur le web,

j'ai crée sur userform1 des commandbutton de façon dynamique.

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
 
Private Sub UserForm_Initialize()
 
Dim i As Integer
 
 
' rend invisible tous les commandbutton de la feuille
For i = 1 To 6
    Me.Controls("commandbutton" & i).Visible = False
Next
 
'rend visible avec le nom associé à commandbutton de 1 à nbdeprout(0)
For i = 1 To nbdeprout(0)
    Me.Controls("commandbutton" & i).Visible = True
    Me.Controls("commandbutton" & i).Caption = nbdeprout(i)
Next
 
 
 
End Sub

ça marche nickel, ensuite lorsqu'on clique sur un commandbutton je voudrais lancer une sub sans avoir a ecrire du code pour chaque bouton, j ai essayé :

Code :

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

1
2
3
4
5
6
 
Private Sub commandbutton_click()
 
MsgBox "yes"
 
End Sub

mais elle ne se lance pas, qu'est ce que j ai loupé ?

Merci
Nicolas

[kiki29]

Salut, l'idéal, faire appel aux modules de classe : une recherche

[Nicolas1977]

j essaye avec

Code :

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

1
2
 
Public WithEvents MonBouton As MSForms.CommandButton

en tete de userform1
et ensuite

Code :

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

1
2
3
4
 
Private Sub MonBouton_Click()
    MsgBox "coucou"
End Sub

mais la msgbox ne s affiche pas lorsque je clique sur un commandbutton, je vais continuer a chercher avec les modules de classes, mais je ne suis pas contre un peu d'aide

merci

[CharleLéo]

salut,

vérifie dans l'onglet développeur, que tu ne sois pas en mode créatiion

a+

[kiki29]

Salut, sorti des décombres, à voir si cela peut t'aider, à adapter à ton contexte.

[Nicolas1977]

ba non, je ne suis pas en mode développeur. par contre j ai écris les lignes ci dessus dans l'Userform1, et rien dans un module de classe, c est peu être ça mes lacunes.

@kiki29

il est chouette ton fichier, je devrais y trouver plein de choses intéressantes ..., je lis et je reviens

Merci

[Theze]

Bonjour,

Un début de piste que tu vas devoir adapter à tes besoins mais tu aura déjà le squelette. 0 mettre dans le module de ta Form (UserForm1). Ta Form étant totalement vide de tout contrôles :

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
 
Dim Boutons() As New Classe1
 
Private Sub UserForm_Initialize()
 
    Dim Btn As MSForms.CommandButton
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer
    Dim Haut As Long
 
    Haut = 5
 
    For I = 1 To 10
 
        Set Btn = Controls.Add("Forms.CommandButton.1", "Btn" & J, True)
 
        With Btn
 
            .Left = 10
            .Top = Haut
            .Width = Me.Width - 20
            .Height = 30
            .Caption = "Mon beau bouton n° " & I
 
            K = K + 1
 
            ReDim Preserve Boutons(1 To K)
            Set Boutons(K).MonBouton = Btn
 
        End With
 
        Haut = Haut + 40
 
        J = J + 1
 
    Next I
 
End Sub

cette ligne devant être en tête du module de la Form :

Code :

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

1
2
 
Dim Boutons() As New Classe1

Dans le module de classe nommé Classe1 (nom par défaut), tu colle ce code-ci :

Code :

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

1
2
3
4
5
6
7
8
 
Public WithEvents MonBouton As MSForms.CommandButton
 
Private Sub MonBouton_Click()
 
    MsgBox "Là, ça marche pil-poil !" & vbCrLf & "Le bouton cliqué est " & MonBouton.Caption
 
End Sub

ceci fait, tu lance la Form et tu clique sur un des dix boutons pour voir le résultat.

Hervé.

[Nicolas1977]

@Theze

avec ce code, la form m'affiche 4 boutons, pas compris

@kiki29 et a tous,


découverte express des modules de classes : ça c est fait
pomper la création dynamique de commandbutton sur le fichier de kiki29 : ça c est fait

mais je bloque encore sur le point de départ : sur un fichier xls vierge j'insert un userform1 aves deux commandbutton, ensuite je place dans 1 module de classe le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Public WithEvents GroupeBtn As MSForms.CommandButton        'déclaration du groupe de boutons
 
Private Sub GroupeBtn_Click()
Dim Libellé As String
    Libellé = GroupeBtn.Caption
    MsgBox Libellé
End Sub

et je m attend a avoir un msgbox chaque fois que je clique sur un bouton de l'userform1, mais non ca marche pas, et je ne vois pas pourquoi ?