>barre de progression

>barre de progression

Bonsoir,
juste une proposition de barre de progression pour vos commentaires ou vos améliorations, en utilisant la barre d'état.
On appelle cette procédure dans une boucle for et next avec :
t un texte à afficher
n nombre total de boucles
i numéro de la boucle en cours


Sub progression(t As String, n As Integer, i As Integer)
If i = n Or n = 0 Then
'je teste n=0 pour éviter une erreur de division
'on rend la barre classique
Application.StatusBar = False
Else
'i/n*10 donne combien de tranches de 10% on a fait
i = Round(11 - i / n * 10, 0)
'11-i donne le caractère de départ dans le texte ci dessous
Application.StatusBar = t + Mid("++++++++++----------", i, 10)
End If
End Sub

A+