Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

barre de progression

  • Initiateur de la discussion Initiateur de la discussion davidm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

davidm

Guest
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
 

Pièces jointes

Re : barre de progression

Bonjour,

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

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
1 K
A
Réponses
3
Affichages
1 K
Arnaud59000
A
Réponses
1
Affichages
932
D
Réponses
10
Affichages
12 K
denissmile
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…