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