PB Boucle avec CheckBox

bb123 · 23 Mai 2016

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 · 23 Mai 2016

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 · 23 Mai 2016

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 · 23 Mai 2016

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 · 23 Mai 2016

Re : PB Boucle avec CheckBox

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

PB Boucle avec CheckBox

bb123

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Bebere

XLDnaute Barbatruc

bb123

XLDnaute Nouveau

bb123

XLDnaute Nouveau

Discussions similaires