1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Dim progres As Integer
Dim Maximum_progressBar As Integer
' Procédure initialisant les valeurs de la barre de progression
Sub InitialiserProgression(ByVal Maximum As Integer)
progres = 0
Progression.ProgressBar1.Min = 0
Progression.ProgressBar1.Max = Maximum
Progression.ProgressBar1.Value = 0
DoEvents
End Sub
' Procédure appelée à chaque nouvelle étape, avec en paramètre l'intitulé de la phase de la progression
Sub IncrementeProgression(ByVal Texte As String)
progres = progres + 1
Progression.ProgressBar1.Value = progres
Progression.ProgressBar1.Max = Maximum_progressBar
'MsgBox (Progression.ProgressBar1.Value)
Progression.Statut.Caption = Texte
Progression.ProgressBar1.Refresh
Progression.Repaint
DoEvents
Progression.Show
End Sub
Sub CreationFichierLots()
'Appel à garder pendant la phase de développement, à déplacer dans le main
InitialiserProgression (6)
Maximum_progressBar = 6
'Progression.Statut.Caption = "Création du fichier des lots..."
'Progression.Repaint
'Afficher la fenêtre de progression
'Progression.Show
'DoEvents
Application.StatusBar = "Création du fichier des lots..."
'Création du classeur et du fichier associé
'.............
IncrementeProgression ("Organisation du classeur...")
'Et appel à IncrementeProgression à chaque nouvelle étape
End Sub |
Partager