Probleme Minimisation

Résolu
samtheh Messages postés 4 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 3 octobre 2005 - 28 sept. 2005 à 13:21
samtheh Messages postés 4 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 3 octobre 2005 - 28 sept. 2005 à 16:21
Hello a tous,



J'ai un probleme que je n'arrive pas a resoudre.



J'ai une application en VBA sous Excel et j'utilise une barre de
progression pour une de mes macros. Cette barre est demarree au debut
de ma macro et fermee a la fin. Elle se met a jour periodiquement. Tout
marche correctement.

Le probleme c'est que si je minimise Excel o que je switch sur un autre
programme le temps que la macro finisse, lorsque je reviens la barre de
progression ne s'affiche plus correctement, je ne vois plus la
progression.

Comment faire pour retrouver la barre de progression lorsque je reviens sous Excel ?



Merci pour vos reponses

3 réponses

mrdep1978 Messages postés 402 Date d'inscription jeudi 25 novembre 2004 Statut Membre Dernière intervention 7 juin 2009 7
28 sept. 2005 à 13:26
Salut,



Tu dois utilise l'instruction DoEvents pour laisser à Windows la possibilité de rafraichir ta fenêtre.



Ex:

With ProgressBar1

.Max = 10

.Min = 0

For i = 1 To 10

.Value = i

DoEvents

Next i

End With
3
samtheh Messages postés 4 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 3 octobre 2005
28 sept. 2005 à 14:53
merci pour ta reponse, mais cela ne marche pas enfin pas tout a fait.

Maintenant, avec ton code, lorsque je reviens a Excel la barre est bien
visible mais elle ne progress plus. Elle reste bloquee au pourcentage
et a l'avancement ou elle etait lorsque je suis passe sur un autre
programme.



Si je sors DoEvents de la boucle alors cela ne marche plus.



Un complement d'idee ?
0
samtheh Messages postés 4 Date d'inscription samedi 21 juin 2003 Statut Membre Dernière intervention 3 octobre 2005
28 sept. 2005 à 16:21
Oups, nan c'est bon ca marche comme ca merci beaucoup.

J'ai juste enleve .Max .Min et .Value car il me faisait des erreures de compilation.

Mais sinon c'est parfait, merci.
0
Rejoignez-nous