[VBA-E] Barre de progression

**Tartenpion** · 09/03/2006, 12h18

Bonjour,

J'ai cree un rapport excel qui extrait des donnees d'une base de donnee SQL et effectue des calcul avant de remplir un tableau.

Le processus peut prendre plusieurs secondes. Pour l'instant je n'ai qu'une MsgBox a la fin qui me dit que mon rapport est pret.

Je me demandais s'il etait possible de definir une barre de progression qui se met a jour en fonction de l'avancement de mon programme.

En fait ma routine principale se decompose de la facon suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
SubMain()
 
Call Sub1
 
Call Sub2
 
Call Sub3
 
Call Sub4
 
MsgBox ("Rapport pret")
 
End sub

L'idee serait de faire avancer la barre apres chaque call...

Est-ce possible?

**zazaraignée** · 09/03/2006, 14h11

Salut

Pour qu'une barre de progression fonctionne sans problèmes on place l'instruction qui modifie sa valeur en cours à l'intérieur de la boucle qui fait le travail principal. Mais il faut une boucle.
Les procédures appelées par ta procédure Main doivent bien contenir une ou plusieurs boucles. Ç'est à l'intérieur de la plus grande boucle que tu doit placer l'instruction. Quite à mettre une étiquette au dessus de ta ProgressBar pour identifier le traitement en cours. L'utilisateur verra plusieurs progressions différentes et toutes identifiées. Il se dira alors: "Tiens! Mais ça travaille fort! et n'en sera que plus ébloui par tes talents de programmeur.

**random** · 09/03/2006, 16h19

à la fin de chaque call progress.bar=progress.bar+1
et do events et me recalc

**Tartenpion** · 09/03/2006, 16h52

Ok ca m'a l'air pas mal tout ca. Par contre je ne sais pas par ou commence. Graphiquement, comment je cree l'objet?
Est-ce qu'il a quelque chose deja pre-definit?