Bonjour à tous,
J'ai cette barre de progression de Sébastien Mathier que je souhaite utiliser sur plusieurs macros avec la barre qui part de 0 à 100 sachant que le nombre d'itérations peut changer d'une macro a une autre. Mais je constate qu'au début des macros suivantes, le contenu de userform devient blanc quelques secondes avant de reprendre.
Avez vous une solution?
Merci à vous!
J'ai cette barre de progression de Sébastien Mathier que je souhaite utiliser sur plusieurs macros avec la barre qui part de 0 à 100 sachant que le nombre d'itérations peut changer d'une macro a une autre. Mais je constate qu'au début des macros suivantes, le contenu de userform devient blanc quelques secondes avant de reprendre.
Avez vous une solution?
VB:
Application.ScreenUpdating = False
UserForm_demo.Height = 121.5
compteur = 0
progression = 0
For ligne = 1 To 2000
For col = 1 To 50
compteur = compteur + 1
Cells(ligne, col) = ligne + col
If compteur Mod 1000 = 0 Then '=> sera exécuté 100x
progression = progression + 1
Image_barre.Width = progression * 1.5
Label_barre.Caption = progression & "%"
DoEvents
End If
Next
Next
Application.ScreenUpdating = True
UserForm_demo.Height = 136.5
'------------------------------------------
Image_barre.Width = 0
Call dedeMerci à vous!