Les CheckBox (cases à cocher) sont utilisées lorsque l’utilisateur peut sélectionner une ou plusieurs options dans une liste d’options.
La propriété Value du CheckBox vaut :
- True lorsque le CheckBox est coché.
- False lorsque le CheckBox est décoché.
Pour insérer un CheckBox, glissez-déposez un contrôle CheckBox sur la boîte de dialogue personnalisée :
La procédure CheckBox_Change() peut être utilisée pour réagir aux changements d’état d’un Checkbox. Supposons par exemple que le CheckBox CheckBox1 ait été inséré dans une boîte de dialogue personnalisée. Vous pourriez écrire la procédure CheckBox1_Change() pour modifier l’étiquette du CheckBox en fonction de son état (coché ou décoché) :
Private Sub CheckBox1_Change() If CheckBox1.Value = True Then CheckBox1.Caption = "Case cochée" Else CheckBox1.Caption = "Case décochée" End If End Sub
Vous pourriez également afficher le texte Case décochée dans l’étiquette du CheckBox à l’ouverture de la boîte de dialogue personnalisée via la procédure UserForm.Activate() :
Private Sub UserForm_Activate() CheckBox1.Caption = "Case décochée" End Sub
inutile