Une barre de progression est utilisé dans une application informatique pour indiquer la progression de l'opération. C'est généralement un rectangle qui a animé tant qu'opération fait des progrès . Visual Basic pour Applications, ou VBA est un langage de programmation informatique utilisé dans des applications Microsoft Office pour automatiser les tâches de routine et de 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 . Instructions
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 " Outils " , cliquez sur " étiquette ". Tout en maintenant le bouton de la souris , faites glisser sur le formulaire pour créer un nouveau contrôle d'étiquette .
2

un clic droit sur l'étiquette et sélectionnez "Propriétés ", puis changer "Hauteur " à 42 et "Largeur" ​​à 12. Changer le " Top" à 12. Créer plus de neuf étiquettes en utilisant le même procédé .
3

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

Tapez la commande suivante pour créer une nouvelle variable et définir sa valeur :

Dim cnt Comme integer

cnt = 0
5

Tapez la commande suivante pour masquer toutes les étiquettes lorsque le formulaire commence :

Me.Label1.Visible = False
< p> Me.Label2.Visible = False

Me.Label3.Visible = False

Me.Label4.Visible = False

Me.Label5.Visible = false < br >

Me.Label6.Visible = False

Me.Label7.Visible = False

Me.Label8.Visible = False

Me.Label9.Visible = False Photos

Me.Label10.Visible = False
6

Tapez la commande suivante pour créer une boucle while et parcourir 10 fois pendant la pause du code pendant 5 secondes :

Do Alors 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 < br >

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
< p > Case Is = 6

Me.Label6.Visible = True

Me.Label6.BackColor = vbBlue

Case Is = 7

moi . Label7.Visible = True

Me.Label7.BackColor = vbBlue

Case Is = 8

Me.Label8.Visible = True

Me.Label8 . BackColor = vbBlue

cas est = 9

Me.Label9.Visible = True

Me.Label9.BackColor = vbBlue

Case Is = 10 Photos

Me.Label10.Visible = True

Me.Label10.BackColor = vbBlue

End Select

Me.Repaint

application . Attendez maintenant + TimeValue ( " 00:00:05 " )

cnt = cnt + 1

boucle
7

Cliquez sur le menu "Insertion " puis cliquez sur "Module" pour ajouter un nouveau module. Copiez et collez le code ci-dessous pour commencer votre " UserForm1 . ": F5 à

Sous showProgressBar ()

UserForm1.Show

End Sub

presse " "pour exécuter le programme.