Progressbar

Résolu/Fermé

jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024 - 1 mars 2009 à 15:16
jh50160 Messages postés 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024 - 2 mars 2009 à 07:38

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 90 Date d'inscription samedi 15 juillet 2006 Statut Membre Dernière intervention 12 janvier 2024
2 mars 2009 à 07:38

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

Newsletters