Coder une progressbar sur vbe

[Wan]

Bonjour tout le monde !!

Etant programmateur moyen, je voudrais savoir ce qui cloche dans mon code car le débogueur me renvoie "Erreur d'éxécution 380" il dit "invalid Property value".

Ben voilà le code, je ne vois pas en quoi il cloche lol

'---------------------------------------
Private Sub UserForm_Initialize()
Dim i, j As Integer

With ProgressBar1
.Min = 0
.Max = 100
.Value = 10
End With

For i = 1 To 100
ProgressBar1.Value = ProgressBar1.Value + i
Next i

End Sub

'-----------------------------------

Merci pour votre aide !! J'en ai honte surtout si je suis censé connaitre tout ça...

 

[MichelXld]

Re : Coder une progressbar sur vbe

bonjour


remplace

    ProgressBar1.Value = ProgressBar1.Value + i

par

    ProgressBar1.Value = i

tu peux tester

Private Sub UserForm_Activate()
    Dim i As Integer
    
    With ProgressBar1
    .Min = 0
    .Max = 5000
    End With
    
    For i = 1 To 5000
    ProgressBar1.Value = i
    Next i
End Sub

bon apres midi
MichelXld

 

[porcinet82]

Re : Coder une progressbar sur vbe

Bonsoir Wan, Michel,

Arffff, juste pour dire a Wan que c'est son micro-onde qui contient un programmateur, celui qui fait des prog c'est un programmeur !!! 😛

@+

 

[Wan]

Re : Coder une progressbar sur vbe

Merci les gars pour votre aide.