Discussion :

[goby45]

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 :

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

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.

[Daranc]

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

Code :

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

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

[Gorfael]

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 :

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

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+

[laetitia]

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 :

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

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

[goby45]

Merci beaucoup ça fonctionne !