ProgressBar sur un userform

Salut,
En fait il faut mettre la progressbar à jour périodiquement
Voici un exemple:
1 form avec un bouton, un timer et un progressbar

Private Sub Command1_Click()
Me.Timer1.Enabled = False
Me.Timer1.Interval = 100 '0.1 secondes
Me.Timer1.Enabled = True
Me.ProgressBar1.Min = 0
Me.ProgressBar1.Max = 100 '10 seconde de progression
Me.ProgressBar1.Value = 0 'valeur de départ à 0 (barre vierge)
End Sub

Private Sub Timer1_Timer()
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
If Me.ProgressBar1.Value = Me.ProgressBar1.Max Then
'c fini, il faut arreter le timer pour eviter un débordement
Me.Timer1.Enabled = False
MsgBox "Fini"
End If
End Sub

A toi de l'adapter à ton critère d'avancement
Bon courage

;-))

La réponse de beldyn est bonne, sauf qu'elle pourrait être plus détaillée ;-)))

Alors : Le timer, c'est un objet comme les autres (boutons, etc...)qui doit se trouver dans la barre d'outils des contrôles, il ressemble à un chronomètre, visuellement....

Sa particularité est de déclancher du code à des moments spécifiques quand il est activé, selon un intervalle de temps défini par sa propriété .Interval

Si tu pose cet objet dans ta forme, tu vas dans son code puis ce code se déclanchera à intervalle réguliers.... Mais il est invisible à l'exécution, ne panique pas....

Et si je devais rajouter quelque chose, je dirais que moi, j'utiliserai un fichier qui me récupérerai les temps moyens d'exécution de ta sub, pour mettre ensuite à jour le .Min et le .Max et faire évoluer le .Value ou le .Interval en fonction, ceci pour avoir des durées d'exécution cohérentes, au cas où tu distribuerais ton appli sur différentes machines.... Et aussi pour faire des stats... ;-)))

Sinon, Beldyn à dit l'essentiel... ;-)))

Wild and Free