Discussion :

[damsmut]

Bonjour,


Dans un programme Excel, à un moment j'ai une boucle du style :

Code :

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

1
2
3
For Each c In Ma_Plage
...
Next

J'aimerai bien avoir un visu de l'avancement de la macro...
Une progressbar, ou info dans statusbar... peux importe... ça ce n'est pas mon problème.


Mon problème est le suivant....

Dans la boucle

Code :

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

For each

comment savoir à quel position on se trouve et sur combien en tout !?


Merci

A+

Dams'

[fllyann]

Si tu peux représenter Ma_Plage par un nombre


avant ton next tu mets par exemple

Code :

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

1
2
3
4
5
6
 
If i = Ma_PalgeNombre * 0.5 then
      ValeurPB =0.5
      UpdateProgressBar ValeurPB
end if
i=i+1

[damsmut]

Ma_Plage est en fait de type Range et correspond à une plage de cellules

[casefayere]

Bonsoir,

Une idée parmi d'autres :

Code :

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

1
2
3
4
5
6
7
barimp.Show 'un USF comprenant ProgressBar
barimp.ProgressBar1.Min = 1: barimp.ProgressBar1.Max = 300 'un chiffre représentant le nombre de cellules à parcourir
barimp.Repaint
For Each c In Ma_Plage
...
barimp.ProgressBar1 = barimp.ProgressBar1 + 1
Next

attention l'Usf doit etre non modal.

Tu peux ajouter un Label sur l'Usf et voir l'avancement au niveau des cellules,

Code :

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

1
2
3
4
....
barimp.ProgressBar1 = barimp.ProgressBar1 + 1
barimp.label1 = c.address
barimp.repaint

mais ça ira vite
Next
Next