Gérer l’accessibilité des contrôles aux utilisateurs avec la case à cocher ou CheckBox dans un formulaire personnalisé ou Userform, Excel VBA

La propriété Enabled gére la disponibilité des contrôles pour l’utilisateur. Si la propriété a la valeur True, le contrôle peut recevoir le focus et être disponible pour l’utilisateur. L’exemple suivant montre comment utiliser une case à cocher pour contrôler l’accessibilité d’un contrôle (bouton de commande).

Figure 1: Accessibilité des contrôles

Alors, créez un formulaire et dans le module de code tapez le code suivant :

Private Sub UserForm_Initialize()

   CommandButton1.Caption = "ACCESSIBLE"

   CheckBox1.Caption = "Verrouiller"

   CheckBox1.Value = True

End Sub

Private Sub CheckBox1_Change()

   If CheckBox1.Value Then

      CommandButton1.Enabled = False

   Else

      CommandButton1.Enabled = True

   End If

End Sub

Private Sub CommandButton1_Click()

   MsgBox "Bonjour! (-:"

End Sub

Commentaires

■ Si la case Verrouiller est cochée, le bouton Appuyer est verrouillé, et s’il n’est pas coché, il est disponible.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x