[VBA EXCEL] : ProgressBar

Version imprimable

03/08/2006, 10h36
forsay1

[VBA EXCEL] : ProgressBar

Bonjour,

Voila j'aimerai savoir comment faire evoluer la progress bar et j'aimerai surtout savoir si on doit l'inclure dans une nouvelle userform ?

Si oui comment faire pour que la progressbar se remplisse en fonction du traitement du code sur la fenetre principale ?

Merci
03/08/2006, 10h50
Commodore
1er element de réponse:

pour faire evoluer une progressbar:
1. Fixer les propriétés Min et Max
2. Départ : ProgressBar.Value=Min
3. Puis incrémenter la propriété Value jusqu'à atteindre Max
03/08/2006, 10h58
forsay1

ok merci pour cette reponse !
03/08/2006, 11h01
Commodore

A toi de fixer les moments où tu souhaites incrémenter (par exemple au cours d'une boucle).

Cependant, il ne faut pas s'attendre à une progression homogène. Il doit sans doute exister une fonction permettant d'obtenir cette homogénéité, mais je ne la connais pas...

Quelqu'un a-t-il une idée ?
03/08/2006, 11h10
forsay1

oui c'est ce que je viens de faire pour l'incrementation et ca fonctionne nickel !

Mais je pense que ca aurait été plus interessant d'integrer la progressbar dans une nouvelle userform parceque la je fait apparaitre la progression dans la fenetre en cours...
03/08/2006, 11h12
Commodore

tu veux dire dans un userform a part genre popup ?
03/08/2006, 11h17
forsay1

exactement
03/08/2006, 11h18
Commodore

normalement ça ne change rien:

tu Load ton form, tu lances ton traitement et tu mets a jour la progressbar du "popup".
Ensuite, tu UnLoad le popup.

Pour faire une belle progress bar, il faut en 1er lieu se fendre d'un userform adapté.

=> CREER UN USERFORM AVEC UNE BARRE ET UN LABEL !
Elle contient :
- une textbox qui doit s'appeller FramePROGBAR
- une barre qui doit s'appeller LabelPROGBAR
(en fait, cette barre n'est rien d'autre qu'un label avec un effet 3D et pas de texte dedans ...rusé non ?) :lol:

Note : Tu peux creer tous types de progbars (à 2 niveaux, qui noircissent quand on arrive vers 100%, avec des captions qui indiquent le %age...)

On passe au code :
-> Dans le code de la progbar, il te faut un truc du genre :
Code:

1 2 3 4 Private Sub UserForm_activate() Call main 'ou main est ta marco principale End Sub
Puis, dans un module quelconque modulepouet (pas dans le code de la form), il te faut ecrire une procedure de controle de la userform de type :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub gestionProgbar(Avancement) ' Ze progress bar !!!! AvancementColor= 255 - Round(255 * Pct, 0) 'pour colorier ;) With UserForm1 .FramePROGBAR.Caption = Format(Avancement, "0%") .LabelPROGBAR.Width = (.FrameProgress.Width - 10)*Avancement 'TAILLE de la bar .LabelPROGBAR.BackColor = RGB(0, AvancementColor/ 3, AvancementColor) 'pour du bleu .Repaint End With End Sub
Si on a bien bossé avant, la userform doit avoir le FramePROGBAR le LabelPROGBAR qui vont bien donc ca devrait marcher !!! :mouarf:

Dans modulepouet / main tu codes ensuite :
Code:

1 2 3 4 5 6 7 8 9 sub main() for I = 1 to 100 'Call actionalacon Call gestionProgbar(I/100) next I 'a la fin du code il faut (evidement !) :! unload userform1 end sub
tu lances ta macro dans un programme de modulepouet
Code:

1 2 3 4 5 6 7 8 sub launcher() 'Facultatif : UserForm1.LabelProgress.Width = 0 '(initialize la bar à zero) 'c'est utile si on affiche une msgbow juste avant... ' userform1.show end sub
et voili ;)
P.S. : Cet exemple est dispo sur PLEIN de sites internet...

03/08/2006, 11h49
forsay1

J'arrive pas a le faire fonctionner mais bon...

Je crois que je vais me contenter de la progressbar directement dans la feuille principale
03/08/2006, 11h52
Commodore

je vais garder ton exemple sous le coude, stupid, il a l'air intéressant :)
(je ne l'ai pas testé, mais je le ferai sans doute bientôt)
03/08/2006, 12h11
forsay1

Encor une question...

J'ai ajouté un label au dessus de ma progressbar qui change en fonction du traitement effectué.

Pourquoi je n'ai aucun changement visible pendant l'execution de ma macro ?

En revanche lorsque je le lance pas à pas ben la modification de label se fait bien et est visible sur ma fenetre...

j'ai utilisé pour le changement :

Me.LblTraitement.caption = "Toto"

puis plus loin je met :

Me.LblTraitement.caption = "Tutu"

Mais rien y fait
03/08/2006, 12h22
jmfmarques

Il faut savoir parfois "donner du temps au temps"
Regarde dans l'aide en ligne à quoi sert Doevents, qui est peut-être là suffisant...
(vérifie aussi que tu n'as pas joué, dans ton code avec les valeurs true et false de la propriété visible du label... on se sait jamais...)
03/08/2006, 13h47
forsay1

Merci Bcp ca marche
03/08/2006, 14h11
stupid

Citation:

Envoyé par jmfmarques

Il faut savoir parfois "donner du temps au temps"
Regarde dans l'aide en ligne à quoi sert Doevents, qui est peut-être là suffisant...
(vérifie aussi que tu n'as pas joué, dans ton code avec les valeurs true et false de la propriété visible du label... on se sait jamais...)

A mon avis, il manque sans doute un .repaint ;)
je peux balancer par mail ma progbar si vous voulez
03/08/2006, 14h25
Commodore

-edit-

Citation:

A mon avis, il manque sans doute un .repaint

-/edit-

Citation:

Envoyé par forsay1

Merci Bcp ca marche

apparemment il a la solution...

:resolu: ?
03/08/2006, 14h35
jmfmarques

Citation:

apparemment il a la solution...

been oui...
Doevents est là pour celà...

En ce qui concerne maintenant le "Repaint" : si là était le problème, le pas à pas aurait également failli, non ? Alors que le demandeur disait que tout fonctionnait bien en pas à pas ...;)
03/08/2006, 14h39
stupid

1 pièce(s) jointe(s)

Citation:

Citation:

Envoyé par jmfmarques

been oui...
Doevents est là pour celà...

En ce qui concerne maintenant le "Repaint" : si là était le problème, le pas à pas aurait également failli, non ? Alors que le demandeur disait que tout fonctionnait bien en pas à pas ...;)

pas fondamentalement ! :mouarf:
anyway...

EDIT :

Au temps pour moi, je confondais avec un autre membre avec qui j'ai discuté en MP et a qui j'ai envoyé mon fichier Excel avec ma progbar (enfin...MA... je l'ai pompée qquepart alors...)

Trop bon, je viens de voir qu'on pouvait uploader des trucs !!!
=> en PJ ma progbar ;)