Discussion :

[lisavba]

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

[antonysansh]

Bonjour lisavba,

Voilà de quoi boucler sur tes checkbox :

Code :

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

1
2
3
4
5
6
7
Dim Ctrl as Control
 
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
        'ton code
    End If
Next Ctrl

Et voilà le tuto d'où j'ai tout appris
Tuto ControlesUserForm

[lisavba]

Merci beaucoup Anthony !