Avancement d'une macro - For each - Progressbar

Bonjour,


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

Code:

---

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:

---

For each

---

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


Merci

A+

Dams'

Si tu peux représenter Ma_Plage par un nombre


avant ton next tu mets par exemple

Code:

---

1 2 3 4 5 6

If i = Ma_PalgeNombre * 0.5 then ValeurPB =0.5 UpdateProgressBar ValeurPB end if i=i+1

---

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

Bonsoir,

Une idée parmi d'autres :

Code:

---

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:

---

1 2 3 4

.... barimp.ProgressBar1 = barimp.ProgressBar1 + 1 barimp.label1 = c.address barimp.repaint

---

mais ça ira vite
Next
Next