1 réponse
Faut utiliser des RadiosButtons, c'est fait pour ... Sinon, y a une (pas belle) solution :
Supposons que tes checkBox soient pour avec un groupe de contrôles de Check1(0) à check1(5) (soit pour avec 6 en tout !!!).
Option Explicit
Dim mblnUnseulTour ' variable connue dans tout le module
Private Sub Check1_Click(Index As Integer)
Dim intBoucle As Integer
If mblnUnseulTour = False Then ' c'est la que c'est pas bô
mblnUnseulTour = True
Else
Exit Sub
End If
For intBoucle = 0 To 5
If intBoucle <> Index Then
Check1(intBoucle).Value = vbUnchecked
End If
Next intBoucle
End Sub
Private Sub Check1_GotFocus(Index As Integer)
mblnUnseulTour = False
End Sub
Supposons que tes checkBox soient pour avec un groupe de contrôles de Check1(0) à check1(5) (soit pour avec 6 en tout !!!).
Option Explicit
Dim mblnUnseulTour ' variable connue dans tout le module
Private Sub Check1_Click(Index As Integer)
Dim intBoucle As Integer
If mblnUnseulTour = False Then ' c'est la que c'est pas bô
mblnUnseulTour = True
Else
Exit Sub
End If
For intBoucle = 0 To 5
If intBoucle <> Index Then
Check1(intBoucle).Value = vbUnchecked
End If
Next intBoucle
End Sub
Private Sub Check1_GotFocus(Index As Integer)
mblnUnseulTour = False
End Sub
