Bonjour ,
j'ai un reporting de calcul de marges, qui fonctionne maintenant trés bien
grâce à l'aide de JNP sur ce forum.
Lorsque la macro "calcul de marge" est lancé par l'utilisateur à partir d'un bouton, il y a une pèriode d'attente.
On me demande d'intégrer (pour faire plus pro !) une barre de progression, chose que je n'ai jamais manipulé.
J'ai récupéré sur le forum le code suivant qui fonctionne trés bien tout seul,
mais je dois mal l'intégrer dans ma macro car j'ai un message d'erreur 424.
Merci de vos lumières.
Code de la barre de progression :
Dim I As Long, J As Long, T As Double
UserForm1.Show
Max = 10000
T = Timer
For I = 1 To Max
UserForm1.ProgressBar1.Value = I
UserForm1.Label1.Caption = "CALCUL EN COURS " & Format(I / Max, "0%")
DoEvents
Next
Cells(2, 1) = "DoEvents= " & Timer - T & " seconde(s)"
Unload UserForm1
j'ai un reporting de calcul de marges, qui fonctionne maintenant trés bien
grâce à l'aide de JNP sur ce forum.
Lorsque la macro "calcul de marge" est lancé par l'utilisateur à partir d'un bouton, il y a une pèriode d'attente.
On me demande d'intégrer (pour faire plus pro !) une barre de progression, chose que je n'ai jamais manipulé.
J'ai récupéré sur le forum le code suivant qui fonctionne trés bien tout seul,
mais je dois mal l'intégrer dans ma macro car j'ai un message d'erreur 424.
Merci de vos lumières.
Code de la barre de progression :
Dim I As Long, J As Long, T As Double
UserForm1.Show
Max = 10000
T = Timer
For I = 1 To Max
UserForm1.ProgressBar1.Value = I
UserForm1.Label1.Caption = "CALCUL EN COURS " & Format(I / Max, "0%")
DoEvents
Next
Cells(2, 1) = "DoEvents= " & Timer - T & " seconde(s)"
Unload UserForm1