Médiaforma

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

Print Friendly, PDF & Email

Le contrôle CommandButton (bouton) permet essentiellement d’exécuter du code lorsque l’utilisateur clique dessus.

Pour insérer un contrôle CommandButton, sélectionnez l’outil CommandButton dans la boîte à outils, puis cliquez dans la boîte de dialogue personnalisée :

Vous utiliserez :

  • La propriété Caption pour définir le texte qui apparait sur le bouton.
  • L’événement Click pour réagir au clic sur le bouton.

A titre d’exemple, nous allons définir une boîte de dialogue personnalisée qui contient un CommandButton. Lorsque l’utilisateur clique sur ce bouton, un message sera affiché à l’aide de la méthode MsgBox.

Voici la boîte de dialogue personnalisée :

Un CommandButton est inséré, puis sa propriété Caption est initialisée à “Cliquez ici”.

Double-cliquez sur le bouton et complétez la procédure CommandButton1_Click() comme ceci :

Private Sub CommandButton1_Click()

MsgBox "Merci d'avoir cliqué"

End Sub

Il ne reste plus qu’à lancer la boîte de dialogue personnalisée en cliquant sur le bouton Exécuter, ou en appuyant sur la touche de fonction F5 :

Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments

No comments yet.