Bonjour à tous, je veux faire une barre de progression avec un indice en pourcentage mais cet indice ce bloque à 1,14% et mon compteur "a" reste lui à 327.
Dans ce morceux de code "a" est un entier qui monte jusqu'à environ 28000 (entier z). Ma chaine de caractère "percent" reste bloqué sur "1,14% 327" malgrès que "a" continu à augmenter et que ma barre de progression augmente bien...
Pouvez m'aider s'il vous plaît? Moi je trouve pas là...
Private a As Integer
...
Dim z As Integer
Dim percent As String
Do
percent = CStr(Round(((100 * a) / z), 2)) + "% " + CStr(a)
UserForm3.Caption = percent
UserForm3.Show 0
UserForm3.ProgressBar1.Min = 0
UserForm3.ProgressBar1.Max = z
UserForm3.ProgressBar1.Value = a
UserForm3.Repaint
UserForm3.ProgressBar1.Refresh
a = a + 1
Loop Until a = z
Message édité par zephyron1 le 10-08-2006 à 17:18:56