Bonsoir à tous
Je suis à la recherche d’une aide pour faire fonctionner une Progress Bar dans un UserForm qui lorsque je clic sur la croix pour quitter mon classeur, je voudrais que l’UserForm apparaisse et que la progresse Bar fait office d’enregistrement.
Les quatres premières ligne me serve a affiché dans l'UserForm un gifs Animé,
et en dessous j'ai la Progress Bar
avec le restant de code j'ai essayé de faire fonctionner la Progress Bar Mais cela ne marche pas. Merci de bien vouloir m’aider
Private Sub UserForm_Activate()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\Users\HJ\Pictures\HDMotor.gif'></img></body></html>"
Dim Boucle As Integer, Temps As Single
For Boucle = 1 To 100
ProgressBar1.Value =Boucle
Temps = Timer + 0.1
Do While Timer < Temps
DoEvents
Loop
Pct.Caption = Boucle & "%"
Next Boucle
ActiveWorkbook.Save 'Sauvegarde le classeur'
Unload Me
Application.Quit
End Sub
Je suis à la recherche d’une aide pour faire fonctionner une Progress Bar dans un UserForm qui lorsque je clic sur la croix pour quitter mon classeur, je voudrais que l’UserForm apparaisse et que la progresse Bar fait office d’enregistrement.
Les quatres premières ligne me serve a affiché dans l'UserForm un gifs Animé,
et en dessous j'ai la Progress Bar
avec le restant de code j'ai essayé de faire fonctionner la Progress Bar Mais cela ne marche pas. Merci de bien vouloir m’aider
Private Sub UserForm_Activate()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='C:\Users\HJ\Pictures\HDMotor.gif'></img></body></html>"
Dim Boucle As Integer, Temps As Single
For Boucle = 1 To 100
ProgressBar1.Value =Boucle
Temps = Timer + 0.1
Do While Timer < Temps
DoEvents
Loop
Pct.Caption = Boucle & "%"
Next Boucle
ActiveWorkbook.Save 'Sauvegarde le classeur'
Unload Me
Application.Quit
End Sub
