Barre de progression
Publié: 19 Juil 2005 à 10:41[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% ||||||||||
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% ||||||||||