Bonjour,

En utilisant le code trouvé à cet endroit et qui permet de créer dynamiquement des checkbox, j'essaye de faire en sorte que la propriété Caption des Checkbox soit crée en fonction d'une liste situé dans une Feuille cachée nommée "Classes", en colonne A, dans une plage nommée "Classes".

Avec le code suivant j'obtient une erreur 'Mémoire insufisante'
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 CommandButton1_Click()
Dim Obj As Control
Dim Cl As Classe1
Dim i As Integer
Dim Plage As Range
 
Set Collect = New Collection
 
'MsgBox Feuil1.Cells("A" & Rows.Count).Row.Value
 
'While Feuil1.Cells("A" & Rows.Count).End(xlUp).Row.Value <> 0
 
    For i = 1 To 3 'boucle pour la création des CheckBox
    Set Obj = Me.Controls.Add("forms.Checkbox.1")
        With Obj
            .Name = "moncheckbox" & i
            For Each Plage In Feuil1.Range("Classes")
            .Object.Caption = Cells.Value
            .Left = 140
            .Top = 30 * i + 10
            .Width = 50
            .Height = 20
            Next
        End With
Je n'arrive pas à lui dire que le caption = chaque valeur dans telle colonne.

Merci de votre aide