Home

Barre de progression

 

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