Private Sub CheckBox1_Click()
If CheckBox1 Then cocher 1
End Sub
'_____________________________
Private Sub CheckBox2_Click()
If CheckBox2 Then cocher 2
End Sub
'_____________________________
Private Sub CheckBox3_Click()
If CheckBox3 Then cocher 3
End Sub
'_____________________________
Public Sub cocher(n As Byte)
Dim i As Byte
For i = 1 To 3
If Not i = n Then
Controls('checkbox' & i) = False
End If
Next i
End Sub
Pour les optionsbuttons tant pis.
je voudrais qu'il n'y en ait qu'une checkbox coché à la fois