barre de progression

[davidm]

Bonjour,

J'essai depuis un certain moment de réaliser une barre de progression afin de mesurer le temps de d'éxécution d'une macro (temps qui peut etre aléatoire).

Vous pouvez trouver dans l'exemple ci joint une petite macro (simple compteur) et j'aimerais lancer la barre de progression contenu dans l'userform 1 afin de d'afficher la progression de la macro. J'aimerais que cette progression puisse s'ajuster quelque soit le temps d'éxécution (exemple compteur jusqu'a 1000 ou compteur jusqu'a 1 000 000)

PS : je ne souhaite pas avoir de controle supplémentaire sur l'userform, enfin si c'est possible.


Merci d'avance

davidm

 

[davidm]

Re : barre de progression

re

Est ce réalisable ou est ce qu'il vaut mieux que je laisse tomber ?

Merci

 

[Raja]

Re : barre de progression

Bonjour,

Va faire un tour sur cet excellent site. Peut être tu auras trouvé ton bonheur.

Ce lien n'existe plus

 

[davidm]

Re : barre de progression

Bonjour,

J'ai finalement trouver la solution. Voici le code que j'utilise pour incrémenter la progress bar :

Sub boucle()
Maximum = 10000
userform1.ProgressBar1.Max = Maximum
userform1.Show

For i = 1 To Maximum
    Range("B4") = Range("B4") + 1
    userform1.ProgressBar1.Value = i
Next i

End Sub

Davidm