Creer une liste dynamique de CheckBox

Bonjour,

Je souhaiterai creer une liste de checkbox dynamique. Mais en ligne pas en colonne. Si ca peut aider, le nombre de checkbox depend du nombre d'element stocker dans un vecteur dynamique. En fait c est pour creer des evenements relative a une colonne de Listview. Avec une Listview il est possible d'integrer des checkboxs mais uniquement en ligne... Avez vous des idees ?

Merci d avance

Bonsoir,

Je pars du postulat que les case à cocher sont sur un UserForm !

A mettre dans le module de l'UserForm :

Code:

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
43
44
45
 
Dim Chk() As New Classe1 'A mettre en tête de module
 
Private Sub UserForm_Initialize()
 
    Dim Ctrl As MSForms.CheckBox
    Dim Plage As Range
    Dim I As Integer
    Dim J As Integer
    Dim Gauche As Long
 
    Gauche = 5
 
    For I = 1 To 20
 
        Set Ctrl = Me.Controls.Add("Forms.CheckBox.1", "Chk" & J, True)
 
        With Ctrl
 
            .Left = Gauche
            .Top = 10
            .Width = 80
            .Height = 15
            .Caption = "Case à cocher " & I
 
            ReDim Preserve Chk(1 To I)
            Set Chk(I).GroupeChk = Ctrl
 
        End With
 
        Gauche = Gauche + 100
 
        J = J + 1
 
    Next I
 
    With Me
 
        .ScrollBars = 1
        .ScrollWidth = Gauche
        .ScrollLeft = 2
 
    End With
 
End Sub

A mettre dans un module de classe nommé Classe1 (nom par défaut) :

Code:

1
2
3
4
5
6
7
8
 
Public WithEvents GroupeChk As MSForms.CheckBox
 
Private Sub GroupeChk_Click()
 
    MsgBox "La case à cocher '" & GroupeChk.Caption & "' a la valeur " & GroupeChk.Value
 
End Sub

bien sûr, tout ça est à adapter selon tes besoins !

Bonjour,
COmpile
J ai essaye de copier le code en suivant les instructions du commentaire precedent. Cependant il reste un bug a la ligne en rouge. Le message d'erreur est : Copile Error: Variable not defined
Code:

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 Dim Ctrl As MSForms.CheckBox Dim Plage As Range Dim I As Integer Dim J As Integer Dim Gauche As Long Gauche = 5 For I = 1 To 20 Set Ctrl = Me.Controls.Add("Forms.CheckBox.1", "Chk" & J, True) With Ctrl .Left = Gauche .Top = 10 .Width = 80 .Height = 15 .Caption = "Case à cocher " & I ReDim Preserve Chk(1 To I) Set Chk(I).GroupeChk = Ctrl End With Gauche = Gauche + 100 J = J + 1 Next I With Me .ScrollBars = 1 .ScrollWidth = Gauche .ScrollLeft = 2 End With End With
J ai bien colle la deuxieme partie du code dans un nouveau module de classe. Merci d avance pour votre aide

Bonjour
où est passée la déclaration de chk ?

A merci j ai pas fait attention je teste et je reviens vers vous

Ca marche mais maintenant j'ai une autre question :)

J aimerai nommer les textbox par les elements contenus dans un vecteur. J ai tester le code le vecteur mache parfaitement, j arrive a recuperer le nombre d element et les constituants.
Code:

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 For I = 1 To UBound(Split(funds_list, ",")) Set Ctrl = Me.Controls.Add("Forms.CheckBox.1", "Chk" & J, True) With Ctrl .Left = Gauche .Top = 50 .Width = 60 .Height = 15 .Caption = UBound(Split(I, ",")) ReDim Preserve Chk(1 To UBound(Split(funds_list, ","))) Set Chk(I).GroupeChk = Ctrl End With Gauche = Gauche + 50 J = J + 1 Next I With Me .ScrollBars = 1 .ScrollWidth = Gauche .ScrollLeft = 2 End With End With End Sub
Cependant la ligne en rouge cense me renvoyer les noms contenus dans funds_list me renvoie 0 ce qui est normal car je n'ai aucune variable recuperant l element I du vecteur. Avez vous une idee ?

Citation:

Ca marche mais maintenant j'ai une autre question

Je comprends bien, mais elle ne me parait pas avoir sa place dans une discussion ouverte sur une question différente.
Si LA question posée a été résolue, elle l'a été.