Barre de progression

[Stephane Maillard]

[syntax="ls"]Sub BarreProgression(Index As Variant, Caractere As String)
If Not Isnumeric(Index) Then Exit Sub
If Index < 0 Or Index > 100 Then Exit Sub

If Caractere = "" Then
Caractere = "|"
End If

Print Index & "% " & String(Index, Caractere)
End Sub[/syntax]Affiche dans la barre d'information l'avancement de la tâche en cours. Par exemple :
10% ||||||||||