Discussion :

[forsay1]

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

[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

[forsay1]

ok merci pour cette reponse !

[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 ?

[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...

[Commodore]

tu veux dire dans un userform a part genre popup ?

[forsay1]

exactement

[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.

[stupid]

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 ?)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!

Dans modulepouet / main tu codes ensuite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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

[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)

[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

[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...)

[forsay1]

Merci Bcp ca marche

[stupid]

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

[Commodore]

-edit-

A mon avis, il manque sans doute un .repaint

-/edit-

Merci Bcp ca marche

apparemment il a la solution...

?

[jmfmarques]

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 ...

[stupid]

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 !
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