Condition dur des checkboxs

J'ai 3 checkbox (case a cocher) sur ma feuille, et je cherche les commandes en vba qui me permette de :

lorsque je coche la 1ère les 2 autres se décochent (si ce n'est pas déjà le cas)

lorsque je coche la 2 ème les 2 autres se décochent idem pour la 3ème

j'ai essayer de mettre au click sur chaque case à cocher ce VBA

Private Sub CK1_Click()

CK2.Value = Not CK1.Value

CK3.Value = Not CK1.Value

End Sub

J'ai fais ca pour les 3 cases à cocher respective

Mais cela ne fonction pas

Bonjour,

Voici une solution : le code est à mettre dans la feuille où se trouvent les cases à cocher

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        CheckBox2.Value = False
        CheckBox3.Value = False
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        CheckBox1.Value = False
        CheckBox3.Value = False
    End If
End Sub

Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        CheckBox1.Value = False
        CheckBox2.Value = False
    End If
End Sub

Merci beaucoup ça fonctionne !