Progress bar

[rainbow69006]

Bonjour a tous.

Ma question est simple mais le resultat ne l'est pas

J'ai un programe qui met 8 seconde pour afficher le resultat.

Est il possible de creer une progress bar pendant 8 seconde, que celle ci n'empeche pas le deroulement de mon programe (que mon progrmae tourne en meme temps que la progressbar) , que la progressbar n'affiche pas de chiffres sur la page active mais sur une page specifier?

Merci de vos reponse

 

[jp14]

Re : Progress bar

Bonjour

Une autre piste

Si le programme utilise une boucle utiliser l'index de la boucle pour faire avancer la barre de progression.

JP

 

[rainbow69006]

Re : Progress bar

euh..... euh.....

La cela ne m'aide pas trop 🙄 pourrais tu m'en dire plus ?

comment reconnaitre une boucle? si il y en a une que faire? si il n y en a pas que faire ? etc..

merci

 

[jp14]

Re : Progress bar

Bonsoir

Un exemple

dl2 = Workbooks("Feuil1").Sheets(1).Range("A65536").End(xlUp).Row
ProgressBar1.Visible = True
ProgressBar1.Max = dl2
For i = lignedep To dl2
    ProgressBar1.Value = i

Dl2 contient la valeur de la dernière ligne
La progressBar1 va évoluer entre 1 et cette valeur
dans la boucle for next la progressbar va éoluer avec la valeur de l'index

JP