Médiaforma

VBA Excel – Des CheckBox dans une boîte de dialogue personnalisée

Partagez cet article sur vos réseaux

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
 
Commentaires