Progressbar

[Broch002]

bonjour,

J'ai une userform contenant 5 CommandButtons lançant chacun une macro qui dure entre 15 à 30 secondes. Je souhaite placer une progressbar qui ce mettrait en route dès que l'on Click indifféremment sur sur l'un des CommandButtons. Pour faire patienter l'utilisateur.
J'ai essayé de trouver sur le forum mais je n'ai pas trouvé chaussure à mon pied.

Merci d'avance.😀

 

[YANN-56]

Re : Progressbar

Bonsoir Broch, et à ceux qui passeront par ici,

Un petit exemple que tu pourras adapter à ton besoin.
(Attention! Le "DrawBuffer" de l'USF à 1000000)

Amicalement.

Yann

 

[Broch002]

Re : Progressbar

Bonjour Yann-56

Je ne vois pas comment adapter votre macro à mon fichier.
Je joins un fichier test, à ce mail.
Bien sur les macros sont rapides mais dans mon fichier elles peuvent durer 30 secondes. en cliquant sur les bouton A ou B lançant les macros, il faudrait que le progressbar ce déroule.

Merci d'avance.

 

[Lone-wolf]

Re : Progressbar

Bonjour Yann, bonjour le Forum.

Une petite modification concernant la progressbar.
Sur ton modèle, quand on vide la feuille, il reste un petit bout de celle-ci.

J'ai rajouter ceci:

UserForm1.Label1.Width = UserForm1.Width - UserForm1.Width * (i / ActiveSheet.UsedRange.Rows.Count) [COLOR="Red"][B]- 24[/B][/COLOR]

Bien entendu, il faudra l'adapter selon la largeur du UserForm.

 

[YANN-56]

Re : Progressbar

Bonjour Broch, Lone-wolf, et à ceux qui passeront par ici,

Chez moi; il ne reste pas un "petit bout" (Je parle du Label, bien sûr!!!)
Ce n'est qu'un exemple, et j'ai laissé le Label visible à la construction de l'USF,
afin qu'il soit plus facile de comprendre le principe.

Dans les faits, je mets sa largeur à "0" et il n'est pas visible tant que la macro n'a pas démarré.
Merci cependant pour ta remarque. Je vais peaufiner mon exemple à l'avenir.

Broch, je vais regarder ton Fichier, et voir ce que je peux faire.
Il est vrai que dans mon exemple, il n'y avait pas trop d'explications.

Amicalement et à plus tard.

Yann

 

[YANN-56]

Re : Progressbar

Re Broch,

J'ai du mal à comprendre ta construction. 😕

Et après réflexion je pense qu'il est quand-même simplissime
d'adapter ma bidouille à n'importe quelle Macro un peu longue.

Ce n'est que de l'arithmétique!
Qu'il par ailleurs il est préférable de rédiger par avance sur papier.

A bien noter que dans l'exemple, l'écriture et l'effacement du contenu
ne sont là que pour ralentir la Macro.

Je te laisse bosser un peu, tout en étant persuadé que tu vas y arriver. 🙂

Exemple rectifié joint.

Amicalement.

Yann

 

[Lone-wolf]

Re : Progressbar

Re Yann,

je viens de voir que tu est sur Excel 2003. Moi je suis sur Excel 2007;
c'est peut-être pour celà que je vois le label à la fin de la suppression des lignes.

 

[YANN-56]

Re : Progressbar

Bonsoir Lone-wolf, et à ceux qui passeront par ici,

Là je ne pige pas! 😕
Je ne vois pas ce qui aurait pu changer entre 2003 et 2007...

As-tu regardé mon dernier exemple?

Si quelqu'un sur 2007 rencontre aussi ce souci, il serait sympa de me le dire.

Merci d'avance.

Yann

 

[tototiti2008]

Re : Progressbar

Bonjour Lone-wolf, Bonjour Yann,

je viens de tester sur un 2007 et je ne vois plus de label à la fin du vidage...

Au passage, moi j'aime mieux utiliser

DoEvents

que

Me.Repaint

J'ai déjà eu des soucis de clignotements avec Repaint... mais là il n'y en a pas, c'était juste pour info 😉

 

[YANN-56]

Re : Progressbar

Bonsoir tototiti,

Merci pour ton intervention qui me rassure.

Quant au rafraichissement de l'USF,

Je pallie au problème en mettant le "DrawBuffer" à 1000000 au lieu de 32000

Pour ce qui est du "DoEvents" Je suis encore trop nul pour savoir l'utiliser.

S'il t'amuse, et si tu en trouves le temps, je serais vivement intéressé
que tu l'adaptes à mon dernier exemple.

Ma signature en serait qu'encore plus bien fondée.

Amicalement.

Yann

 

[tototiti2008]

Re : Progressbar

Re,

Oh la la, lourde adaptation 😀

remplace Me.Repaint par DoEvents
😛

Merci pour le coup du DrawBuffer, je ne connaissais pas (ou j'ai oublié parce que j'utilise DoEvents 😉)

va dans l'aide, ça pause trés temporairement l'exécution de la macro pour permettre au système de reprendre la main, et visiblement le système en profite pour actualiser l'affichage

 

[YANN-56]

Re : Progressbar

Merci Tototiti,

C'est là où XLD porte bien son nom de Forum d'entraides!!!

Amicalement, et au plaisir.

Yann

 

[Lone-wolf]

Re : Progressbar

Re re Yann,

je pense avoir trouver le problème. Si je modifie 2000 par 200, la couleur bleu s'arrête à ~1.5 de la fin.

Sinon, à l'ouverture du formulaire et sans faire de modifications, c'est OK.

Test éffectué sur le modèle n° 2.