Bonjour,


Je souhaite créer une liste contenant les label correspondants aux checkbox cochées. Le programme plante dès la première ligne de la boucle. Je ne sais pas comment utiliser des boucles avec des checkbox numérotées...
Est-ce que quelqu'un pourrait m'aider svp?

Merci !

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
Private Sub CommandButton3_Click()
Dim i As Integer, na As Integer, zone As String
 
Worksheets("fingr").Activate
 
zone = ""
na = 1
i = 6
 
 
While Cells(na, 1) <> ""
na = na + 1
Wend
 
 
While i <= na
 
    If Me.Controls("CheckBox" & i).Value = True Then
    MsgBox (("checkbox" & i))
    zone = (zone & Controls("Label" & i).Caption & Chr(10))
    End If
    i = i + 1
Wend
 
alcools = zone
 
End Sub