Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox1.Caption = "Avec N° Département"
Else
CheckBox1.Caption = "Sans N° Département"
End If
End Sub
Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, "Avec N° de Département", "sans N° de Département")
End Sub