ProgressBar qui progresse pas vraiment!

Question

Bonjour,

Petit probl&#232;me, mon code semble se stopper des lors que le userform est affich&#233;...
la boucle ne s'enclenche pas, aucun update de la progressbar... j'ai surement oubli&#233; un trruc mais je vois pas koi...

merci d'avan,ce pour vos r&#233;ponses.

Sub moulinette()


UserForm1.Show


For c = 1 To 100
Sheet1.Range("B1") = c
UserForm1.ProgressBar1.Value = c
Next c


End Sub

cs_DARKSIDIOUS · Answer

Sub moulinette() 
UserForm1.Show


 
For c = 1 To 100
Sheet1.Range("B1") = c
UserForm1.ProgressBar1.Value = c


DoEvents


Next c


 End Sub
_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

Utilisateur anonyme · Answer

Bonjour,



Rajoute un DoEvents dans ta boucle pour actualiser



Sub
moulinette()


UserForm1.Show

For c =  1
To 100

Sheet1.Range("B1") = c

UserForm1.ProgressBar1.Value = c

DoEvents  

Next c



End Sub



Kenji
<hr size ="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Utilisateur anonyme · Answer

Trop tard, Dark a &#233;t&#233; plus rapide.


Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

sesskapil · Answer

Nan toujours le meme probl&#232;me ca se stop au niveau du.show... ya un truc qui cloche.... Une id&#233;e.... je d&#233;bute dans les progress bars... 

Merci

sesskapil · Answer

Ca ne fonctionne pas sur NT mais sur XP si... y a pas une parade?

Merci.

ProgressBar qui progresse pas vraiment!

5 réponses

Discussions similaires