Dans cet article, nous allons apprendre la fonction MsgBox dans Excel VBA, voici les paramètres d’argument des boutons de msgbox vba:

Constant

Value

Description

vbOKOnly

0

Display OK button only.

vbOKCancel

1

Display OK and Cancel buttons.

vbAbortRetryIgnore

2

Display Abort, Retry, and Ignore buttons.

vbYesNoCancel

3

Display Yes, No, and Cancel buttons.

vbYesNo

4

Display Yes and No buttons.

vbRetryCancel

5

Display Retry and Cancel buttons.

vbCritical

16

Display Critical Message icon.

vbQuestion

32

Display Warning Query icon.

vbExclamation

48

Display Warning Message icon.

vbInformation

64

Display Information Message icon.

vbDefaultButton1

0

First button is default.

vbDefaultButton2

256

Second button is default.

vbDefaultButton3

512

Third button is default.

vbDefaultButton4

768

Fourth button is default.

vbApplicationModal

0

Application modal; the user must respond to the

message box before continuing work in the current application.

vbSystemModal

4096

System modal; all applications are suspended until

the user responds to the message box.

vbMsgBoxHelpButton

16384

Adds Help button to the message box

VbMsgBoxSetForeground

65536

Specifies the message box window as the

foreground window

vbMsgBoxRight

524288

Text is right aligned

vbMsgBoxRtlReading

1048576

Specifies text should appear as

right-to-left reading on Hebrew and Arabic systems

Voyons comment la boîte de message vba peut aider l’utilisateur à supprimer tout le contenu des cellules de la feuille de calcul actuelle.

Voici un instantané des données:

image 1

Nous devons suivre les étapes ci-dessous:

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

image 2

  • Insérons un bouton de commande

image 3

  • Entrez le code suivant dans le module de feuille de calcul actuel: –

Option Explicite

Sous-commande privée CommandButton1_Click ()

Dim réponse As Integer

answer = MsgBox (« Voulez-vous supprimer toutes les cellules de la feuille courante? », vbYesNo + vbQuestion, « Supprimer toutes les cellules »)

Si réponse = vbOui Alors

Cells.ClearContents

Sinon

‘ne rien faire

Fin si

End Sub

image 4

  • Lorsque nous cliquons sur le bouton Commande, l’invite suivante apparaîtra

image 5

  • Cliquez sur le bouton Oui pour supprimer toutes les cellules.

  • Le résultat sera le suivant

image 6

De cette façon, nous pouvons supprimer toutes les cellules à l’aide du bouton de commande dans Excel VBA.

xlsx-1567