Private non As Boolean
Private Sub CheckBox1_Change()
If non Then Exit Sub
MsgBox "change" 'ne s'afichera que SI action directe sur la textbox
End Sub
Private Sub CheckBox1_Click()
If non Then Exit Sub
MsgBox "click" 'ne s'afichera que SI action directe sur la textbox
End Sub
Private Sub CommandButton1_Click()
non = True
CheckBox1.Value = Not CheckBox1.Value
non = False ' c'est là qu'on relibère
End Sub