Private Sub onlyOneChkB(Selectedchkb As String) Dim cCont As Control If Me.Controls(Selectedchkb).Value = True Then For Each cCont In Me.Controls If TypeName(cCont) = "CheckBox" Then If cCont.Name <> Selectedchkb Then cCont.Value = False End If End If Next cCont End If End Sub
onlyOneChkB (Me.CheckBox1.Name)
'Ma première checkBox Private Sub CheckBox1_Click() onlyOneChkB (Me.CheckBox1.Name) End Sub 'Une deuxième CheckBoxe Private Sub CheckBox2_Click() onlyOneChkB (Me.CheckBox2.Name) End Sub 'Etc...
Private Sub CheckBox1_Click() If CheckBox1.Value = False Then CheckBox2.Locked = False CheckBox3.Locked = False ElseIf CheckBox1.Value = True Then CheckBox2.Locked = True CheckBox3.Locked = True Else End If End Sub
27 juin 2014 à 08:48
Merci beaucoup