Utilisation d'un ProgressBar

Bonjour Bonjour, tous le monde:calim2:

Je souhaite mettre en place un controle progressBar sur une Userform
Contexte
une macro copie ligne à ligne (1000) une feuille excel vers un autre feuille dans un deuxième classeur Excel.
Cette macro est imbriqué dans une boucle For qui vérifie un certain nombres d'arguments et qui ecrit les lignes répondant à ces arguments

Code:

---

1 2 3

For i = Ligne To Maxlg Step 1 ' boucle pour chaque ligne 'Mes données à écrire (Cde SQL) NexT i

---

Quel est le type de code à utiliser pour faire fonctionner le ProgressBar, et surtout comment je l'intègre aux code existant?
J'ai Trouvé le code suivant mais je ne vois pas comment l'intégrer.

Code:

---

1 2 3 4 5 6 7 8 9 10

ProgressBar1.Max = 1000 ProgressBar1.Visible = true Dim c As Range For Each c In Range("a2:a1000") ProgressBar1.Value = c.Row ' évolution de la progressbar If c.Value = "" Then c.EntireRow.Hidden = True End If Next

---

Merci d'avance à tous ceux et celles qui prendront le temps de me répondre
JF

Bonjour,

Ben... la proprité value de ta progressbar augmente avec l'avancement des traitements (c'est la valeur de .row dans ta boucle For Each et donc la valeur de I dans une boucle ForI I) :

Code:

---

1 2 3 4 5 6

For i = Ligne To Maxlg Step 1 ' boucle pour chaque ligne 'Mes données à écrire (Cde SQL) ..... .... ProgressBar1.Value = i NexT i

---

Edit :
et n'oublie pas de modifier les minimum (ligne) et maximum (Maxlg) de ta progressebar, dans le cas de ta boucle sur I