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
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  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