Discussion :

[jfdebutant]

Bonjour Bonjour, tous le monde

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 :

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

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 :

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

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

[ucfoutu]

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 :

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

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