L'idée est de créer une barre de progression sous forme de texte pour pouvoir indiquer par exemple dans la barre d'état le taux de travail en cours et le temps restant estimé.
L'avantage de cet outil est que le code est très rapide à écrire : voici un exemple :
Sub test_barre_progression()
Dim i
Dim bp As XLSTORE.Barre_progression
Set bp = XLSTORE.New_Barre_progression
For i = 1 To 10
Application.Wait Now + TimeValue("00:00:02")
Application.StatusBar = bp.Barre_et_temps_restant(i / 10)
Next
End Sub
Télécharger les exemples d'utilisation de la barre de progression
|
Retour