boucle dans checkbox

'voici mon code qui se declanche par un bouton dans un userform
'mon probleme est que dans la boucle plus bas je lui met qu'a chaque valeur true du checkbox il m'inscrit sa valeur dans une cellule mais il me le fait autant de fois que j'ai de checkbox alors que je voudrais que si je n ai coché qu'une seule case que la boucle s'arrete apres cette seule case est ce possible ?

cette boucle je l ai mis en gras pour que l on s'y retrouve

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub inscrireprocedureetpoint_Click() Range("d2:d6,d8:d12").ClearContents Dim k, i Dim pointdiscuter For Each ctrl In UserForm1.pointdiscuter.Controls k = k + ctrl.Value Next ctrl If k = 0 Then MsgBox ("Indiquez au moins un point à discuter.") Exit Sub End If i = 1 For Each ctrl In UserForm1.pointdiscuter.Controls[ If ctrl.Value = True Then pointdiscuter = Trim(ctrl.Caption) i = i + 1 Range("a" & i).Value = pointdiscuter Next ctrl End Sub

---

Bon, si j'ai bien compris ta question.

Tu veux sortir ta boucle si elle rencontre une case cochée. Dans ce cas, lorsque que tu tombes sur un checkbox qui est coché tu quittes la boucle for.

D'après mes souvenirs ça doit être : "exit for"

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

Private Sub inscrireprocedureetpoint_Click() Range("d2:d6,d8:d12").ClearContents Dim k, i Dim pointdiscuter       For Each ctrl In UserForm1.pointdiscuter.Controls k = k + ctrl.Value Next ctrl If k = 0 Then MsgBox ("Indiquez au moins un point à discuter.") Exit Sub End If i = 1 For Each ctrl In UserForm1.pointdiscuter.Controls[ If ctrl.Value = True Then pointdiscuter = Trim(ctrl.Caption)   i = i + 1 Range("a" & i).Value = pointdiscuter exit for Next ctrl End Sub

---

Voila tiens nous au courant