Discussion :

[hbc87]

Bonjour,
j'ai une feuille excel où il y a un bouton. Lorsque je clique sur le bouton, une macro exécute 43 boucles qui prennent environ 5 secondes chacune et je voudrais mettre une progressbar pour voir le progrès.

J'ai tout essayé, j'ai lu les tutos, mais ils sont tous fait pour un bouton dans un userform et non un bouton dans une feuille, donc les tutos ne fonctionnent pas.

À la ligne Userform1.show, ça me montre la userform1 et la progressbar avec aucune progression et le code est interrompu, je peux seulement fermer la userform1.

Merci de m'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub Button_Click()
    With Userform1.ProgressBar1
        .Min = 0
        .Max = 43
        .Value = 0
    End With
for i=1 to 43
    'Mon code qui appelle une fonction
    UserForm1.Show
    UserForm1.Progressbar1.Value=i
next i
end sub

[laetitia]

bonjour hbc87 le forum un exemple basique avec une macro volontairement lente
le code je le mets dans l'userform. la progressbar occupe toute la longueur de l'user!!
ideal serait de voir ton code pour l'optimiser plus simple .une progressbar va forcement ralentir le code!!!!

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
Option Explicit
Private Sub UserForm_Activate()
Dim i As Long, z As Long
  repaint'dans certains cas!!
With Me.ProgressBar1
   .Min = 0
   .Max = 43
  End With
   For i = 1 To 43
   For z = 1 To 1000
   [a1] = [a1] + 1
   Next z
   Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
  Next i
End Sub

[fring]

Bonjour,

A l'époque j'avais bricolé ça --> http://www.developpez.net/forums/d52...-just-for-fun/

Barre de progression directement sur une feuille, ça t'aidera peut-être

[hugues03]

Si ca peux aider:

http://silkyroad.developpez.com/VBA/...erForm/#LIII-K

[hbc87]

Merci beaucoup fring, ça marche parfaitement.