Comment créer une barre de progression dans VBA

Une barre de progression est utilisée dans une application informatique pour indiquer la progression d'une opération. Il s'agit généralement d'un rectangle animé au fur et à mesure qu'une opération progresse. Visual Basic pour Applications, ou VBA, est un langage de programmation informatique utilisé dans les applications Microsoft Office pour automatiser les tâches de routine et créer des interfaces utilisateur. Vous pouvez facilement créer une barre de progression à l'aide de VBA dans Microsoft Office Excel. Excel est un tableur inclus dans la suite Microsoft Office.

Étape 1

Ouvrez Microsoft Office Excel, puis appuyez sur "Alt" et "F11" pour ouvrir l'éditeur Visual Basic. Faites un clic droit "VBAProject", puis cliquez sur "UserForm" pour insérer un nouveau formulaire. Dans le menu "Boîte à outils", cliquez sur "Étiquette". Tout en maintenant le bouton de la souris enfoncé, faites glisser le formulaire pour créer un nouveau contrôle d'étiquette.

Étape 2

Faites un clic droit sur l'étiquette et sélectionnez "Propriétés", puis changez "Hauteur" à 42 et "Largeur" ​​à 12. Changez le "Haut" à 12. Créez neuf autres étiquettes en utilisant le même processus.

Étape 3

Cliquez sur "CommandButton" dans le volet "Boîte à outils" et ajoutez un nouveau bouton à votre formulaire. Faites un clic droit sur "CommandButton" et cliquez sur "Afficher le code" pour créer une nouvelle procédure.

Étape 4

Tapez ce qui suit pour créer une nouvelle variable et définir sa valeur :

Dim cnt As Integer cnt =0

Étape 5

Tapez ce qui suit pour masquer toutes les étiquettes au démarrage du formulaire :

Moi.Label1.Visible =Faux Moi.Label2.Visible =Faux Moi.Label3.Visible =Faux Moi.Label4.Visible =Faux Moi.Label5.Visible =Faux Moi.Label6.Visible =Faux Moi.Label7.Visible =Faux Moi .Label8.Visible =Faux Moi.Label9.Visible =Faux Moi.Label10.Visible =Faux

Étape 6

Tapez ce qui suit pour créer une boucle while et itérer 10 fois tout en interrompant le code pendant 5 secondes :

Faire tant que cnt <> 10

Select Case cnt
 Case Is = 1
 Me.Label1.Visible = True
 Me.Label1.BackColor = vbBlue
 Case Is = 2
 Me.Label2.Visible = True
 Me.Label2.BackColor = vbBlue

 Case Is = 3
 Me.Label3.Visible = True
 Me.Label3.BackColor = vbBlue

 Case Is = 4
 Me.Label4.Visible = True
 Me.Label4.BackColor = vbBlue

 Case Is = 5
 Me.Label5.Visible = True
 Me.Label5.BackColor = vbBlue

 Case Is = 6
 Me.Label6.Visible = True
 Me.Label6.BackColor = vbBlue

 Case Is = 7
 Me.Label7.Visible = True
 Me.Label7.BackColor = vbBlue

 Case Is = 8
 Me.Label8.Visible = True
 Me.Label8.BackColor = vbBlue

 Case Is = 9
 Me.Label9.Visible = True
 Me.Label9.BackColor = vbBlue

 Case Is = 10
 Me.Label10.Visible = True
 Me.Label10.BackColor = vbBlue


End Select
Me.Repaint

Application.Wait Now + TimeValue("00:00:05")

cent =cent + 1

Boucle

Étape 7

Cliquez sur le menu "Insérer" puis cliquez sur "Module" pour ajouter un nouveau module. Copiez et collez le code ci-dessous pour démarrer votre "UserForm1." :

Sub showProgressBar() UserForm1.Show End Sub

Appuyez sur "F5" pour exécuter votre programme.