Progressbar

Résolu
jh50160 Messages postés 103 Statut Membre -  
jh50160 Messages postés 103 Statut Membre -
bonjour le forum, voilà créer dans une feuilles de calcul avec un bouton qui m'ouvre un userForm avec la progressBar 'Microsoft ProgressBar control.V6'. Je connais pas le code qu'il faudrais mettre, Si quelqu'un peut m'aidé merci.

Quand je clic sur le bouton de la feuille je voudrais qu'a partir de là, la progressbar fontionne et enregistre toute mes données sur un temps donner et ferme le classeur active. Merci à ceux qu'il veulent bien m'aidés.

A+

Excel 2007

1 réponse

Réponse 1 / 1
jh50160 Messages postés 103 Statut Membre
 
bonjour le forum
Voici le code que j'ai fait, il fonctionne mais il enregistre 2 fois ' la progressbar fait 2 fois sont role' pourquoi?

Private Sub UserForm_Activate()
Dim Boucle As Integer, Temps As Single
Label1 = "Veuillez Patienter"
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
0