Progressbar ne fonctionne pas

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:

---

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

---

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:

---

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

---

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

;)

Si ca peux aider:

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

Merci beaucoup fring, ça marche parfaitement. :ccool: