'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 : 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
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