Bonjour,

Avec l'aide d utilisateur j ai reussi a creer la fonction suivante qui me permet de cree des checkbox dynamiquement en iserant un module de classe. J arrive a recuperer le nom de la Checkbox mais je n arrive pas a l afficher dans une textbox.

Code module Userform :

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
Private Sub UserForm_Initialize()
Gauche = 220
For I = 1 To UBound(Split(strListFunds, ",")) + 1
    Set Ctrl = Me.Controls.Add("Forms.CheckBox.1", "Chk" & J, True)
        With Ctrl
            .Left = Gauche
            .Top = 55
            .Width = 10
            .Height = 10
            .Caption = Split(strListFunds, ",")(I - 1)
            ReDim Preserve Chk(1 To I)
            Set Chk(I).GroupeChk = Ctrl
        End With
        Gauche = Gauche + 39.45
        J = J + 1
    Next I
 
    With Me
        .ScrollBars = 1
        .ScrollWidth = Gauche
        .ScrollLeft = 2
    End With
 
End Sub
Mon module de classe :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public WithEvents GroupeChk As MSForms.CheckBox
 
Private Sub GroupeChk_Click()
 
 
    MsgBox "La case à cocher '" & GroupeChk.Caption & "' a la valeur " & GroupeChk.Value
 
 
End Sub
Je voudrais donc afficher le nom de ma checkbox dans une textbox contenu dans le meme userform.

Merci pour votre aide.