Problème boucle sur checkbox

Bonjour à tous,
Voilà je vous expose mon problème.

Dans un fichier excel j'ai une macro qui ouvre une Userform.
Sur cette Userform, il y a 10 checkbox. Chaque checkbox est associé à une liste déroulante et un champ de texte.

Lorsque l'on clique sur le bouton valider de l'userform, je voudrais que si la checkbox est cocher les valeur de la listebox et de la zone de texte correspondantes soient écrite dans une cellule excel.

J'ai réussi à écrire un code du genre

Code:

---

1 2 3

if checkbox1.value = true then ... if checkbox2.value = true then ... if checkbox3.value = true then ...

---

....

N'y aurait-il pas moyen de faire plus simple avec une boucle du genre.

Code:

---

1 2 3

For i = 1 to 10 if checkboxi.value = true then... Next i

---

Le problème est que je ne vois pas trop la synthaxe avec le i.

Merci d'avance pour vos réponses et vos idées

Salut

En utilisant la collection Controls.

Code:

---

1 2 3

for i = 1 to 10 if controls("checkbox" & i).value = true then... next i

---

Bonsoir
voici comment boucler sur les CheckBoxes de la boite à outils Contrôles sur un UserForm (ActiveX), la bibliothèque Forms 2.0 doit être cochée (auto si le projet contient un UserForm)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim cntrl As Control For Each cntrl In UserForm1.Controls If TypeOf cntrl Is MSForms.CheckBox Then If cntrl.Value Then 'traitement ici si vrai (cochée) End If End If Next End Sub

---

Abed_H

OK merci pour vos réponses ca marche nickel.

Par contre avec la seconde solution je ne vois pas comment je peux ajouter dans le traitement la valeur de la zone de texte associé au checkbox.
Voici le code créer avec la solution à babaothe

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() For i = 1 To 10 If Controls("checkbox" & i).Value = True Then ActiveCell.Value = Controls("TextBox" & i).Value ActiveCell.Offset(0, 1).Select End If   Next i   End Sub

---

Est ce possible de faire avec la seconde solution.

tu peu simplifier, et sans les select
ici par exemple, sur la ligne 2

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Byte, j As Byte For i = 1 To 10 j = IIf(Controls("checkbox" & i).Value, j + 1, j) Cells(2, j).Value = Controls("textbox" & i).Value Next i End Sub

---