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
Quel est le type de code à utiliser pour faire fonctionner le ProgressBar, et surtout comment je l'intègre aux code existant?
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
J'ai Trouvé le code suivant mais je ne vois pas comment l'intégrer.
Merci d'avance à tous ceux et celles qui prendront le temps de me répondre
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
JF
Partager