PB Boucle avec CheckBox

[bb123]

Bonjour,

Je cherche à faire une boucle du type:

For i = 1 To 8

If UserForm1.CheckBoxi = True Then
Cells(1, i).Value = UserForm1.CheckBoxi.Caption
End If

Next

Evidemment ça ne marche pas mais j'ai beau chercher, je ne trouve pas comment faire pour ne pas à avoir à écrire 8 boucle IF...

Si quelqu'un sait comment faire, je suis preneur,

Merci d'avance

 

[pierrejean]

Re : PB Boucle avec CheckBox

A tester:

For i = 1 To 8
If UserForm1.controls("CheckBox" & i) = True Then
Cells(1, i).Value = UserForm1.Controls("CheckBox" & i).Caption
End If
Next

 

[Bebere]

Re : PB Boucle avec CheckBox

bonjour

For i = 1 To 8

If UserForm1.controls("CheckBox" & i) = True Then
Cells(1, i).Value = UserForm1.controls("CheckBox" & i).Caption
End If
si le code est dans feuille code userform me("CheckBox" & i) est aussi valable
me fait référence à userform1
edit:bonjour Pierre Jean

 

[bb123]

Re : PB Boucle avec CheckBox

Merci pierrejean, je ne connaissais pas la "technique" .controls et elle marche parfaitement pour mon problème.

Bonne journée, basile

 

[bb123]

Re : PB Boucle avec CheckBox

Merci à toi aussi Bebere, je viens de voir ta réponse