Barre de Progression pendant Calculate

[Rookie]

Bonjour,

Après avoir cherché quelques temps sur internet une solution à mon problème, je me tourne vers vous en désespoir de cause.

Je souhaite afficher une barre de progression lorsque le programme lance les calculs sur la feuille excel.

Voici le code que j'ai pu établir à partir de mes différentes trouvailles:

Calculate

F_BarreAttente.Show
For b = 1 To 10
F_BarreAttente.Caption = Format(b / 10, "0%")
F_BarreAttente.Label1.Width = (b / 10) * 100
DoEvents
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3.5)
Next b
Unload F_BarreAttente

Je sais que excel met 35 secondes pour effectuer tous les calculs.

Le problème de ce code est que ça calcul est quand c'est fini, ca lance la barre de progression...

Merci d'avance, bonne journée!


Pour info: ce fichier doit être utilisé sur de nombreux ordinateurs différents.
j'ai trouvé un post similaire sur le forum, mais je n'ai pas compris grand chose...
Je suis sous excel 2000

 

[PascalXLD]

Re : Barre de Progression pendant Calculate

Bonjour

Tu as une boucle dans ton code qui fait le calcul ?

Car tu dis que les calculs se font en 35 secondes mais cela va dépendre des machines

 

[Rookie]

Re : Barre de Progression pendant Calculate

Bonjour,

Non, je n'ai pas de boucle.

La lenteur vient du fait que j'utilise beaucoup de sommeprod (~2500).
J'ai déja renommé tous les champs prix en compte dans ces formules avec la fonction =décaler(A1;;;nbval(B1:B65000)).

Ce qui faudrait c'est que la barre de progression "progresse" pendant le calculate.