Progressbar pendant execution d'une macro

Bonjour,

J'ai une macro qui prend environ une minute à s'exécuter, j'aimerais donc informer l'utilisateur sur l'avancement des calculs.

Cette macro comporte une grosse boucle générale de 1 à 9, qui met donc environ 6s à chaque tour.
J'ai donc créé un userform avec une progressbar mais je n'en ai jamais manipulé.

Quand je lance ma macro , elle se bloque au premier tour et je suis obligé de fermer l'userform pour que les calculs s'effectuent.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim derniere_ligne, derniere_ligne_correspondance, i, j, k, ligne, a, b As Long   UserForm1.Show   For a = 1 To 9     UserForm1.ProgressBar1.Value = a UserForm1.ProgressBar1.Refresh   + Ma macro dépendant de a

---

Merci de votre aide.

ben si c'est déjà long sans le progress bar ça va s'aggraver avec :calim2:
mais si tu y tiens vraiment il ne devrait pas être plutôt dans la macro ( je n'en utilise jamais ) :cry: logiquement l'appel devrait etre fait à plusieurs endroit de la macro

Code:

---

1 2 3 4 5 6 7 8

premier tronçon routine maj pb deuxieme tronçon routine maj pb ... dixieme tronçon routine fion pb

---

Salut goby45 et le forum
Quand tu lances un USF en mode "Modal", on arrête le reste et seul l'USF compte.
Met la propriété ShowModal à False

Code:

---

1 2 3 4 5 6 7

Dim derniere_ligne, derniere_ligne_correspondance, i, j, k, ligne, a, b As Long UserForm1.Show UserForm1.ProgressBar1.Max=9 For a = 1 To 9 le code dépendant de a UserForm1.ProgressBar1 = a Next a

---

A+

bonjour goby45 Daranc Gorfael le forum meme avis que Daranc en general il faut mieux dans un premier temps optimiser ta macro pour aller plus vite il est vrai que dans certains cas un progressbar ne penalise pas trop tout depend du code ??? un exemple basique avec une macro volontairement lente pour comprendre code dans l'user.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Dim J As Integer, i As Byte Private Sub UserForm_Activate() Repaint [a1] = 1 With Me.ProgressBar1 .Min = 0 .Max = 9 End With Application.ScreenUpdating = False For i = 1 To 9 For J = 1 To 10000 [a1] = [a1] + 1 Next J Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1 Next i End Sub

---

Merci beaucoup ça fonctionne ! :ccool: