Sub ProgressionStatusbar()
Dim i As Long
Dim InitSB As Boolean
Dim Indice As Integer
Dim Debut As Date
Debut = Now
'Récupére la valeur de la barre d'état afin de pouvoir la redéfinir à son état initial
'en fin de procédure.
'(Renvoie True si la barre d'état est affichée, sinon False)
InitSB = Application.DisplayStatusBar
'Affiche la barre d'état si ce n'est pas déjà le cas
Application.DisplayStatusBar = True
'Exemple de boucle pour tester l'affichage dans la barre d'état.
For i = 1 To 150000
'
'la procédure
'
'---
If Debut <> Now Then
Indice = Indice + 1
Debut = Now
If Indice > 10 Then Indice = 1
End If
Application.StatusBar = Application.Rept(Chr(62), Indice)
'---
Next
'Restaure la donnée par défaut de la barre d'état
Application.StatusBar = False
'Réinintialise le mode d'affichage de la barre.
Application.DisplayStatusBar = InitSB
End Sub