boucles checkbox i

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:

---

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

---

Bonjour lisavba,

Voilà de quoi boucler sur tes checkbox :

Code:

---

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

Merci beaucoup Anthony ! :)