ça va vous paraitre bête mais je n'arrive pas à boucler ce code !
Private Sub OptionButton5_Click()
For i = 1 To 9
If OptionButton5 = True Then
CheckBox1.Visible = True
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = True
CheckBox7.Visible = True
CheckBox8.Visible = True
CheckBox9.Visible = True
CheckBox10.Visible = False
CheckBox11.Visible = False
CheckBox12.Visible = False
CheckBox13.Visible = False
CheckBox14.Visible = False
CheckBox15.Visible = False
CheckBox16.Visible = False
CheckBox10 = False
CheckBox11 = False
CheckBox12 = False
CheckBox13 = False
CheckBox14 = False
CheckBox15 = False
CheckBox16 = False
End If
Next i
End Sub
Private Sub OptionButton6_Click()
For i = 1 To 9
If OptionButton6 = True Then
CheckBox10.Visible = True
CheckBox11.Visible = True
CheckBox12.Visible = True
CheckBox13.Visible = True
CheckBox14.Visible = True
CheckBox15.Visible = True
CheckBox16.Visible = True
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = False
CheckBox7.Visible = False
CheckBox8.Visible = False
CheckBox9.Visible = False
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
CheckBox4 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7 = False
CheckBox8 = False
CheckBox9 = False
End If
Next i
End Sub
Si vous pouviez m'aider.. MERCI !