Fonctionnement d'une Progress bar .... BOUUUHHHH !!!!

Résolu
cs_Le routier Messages postés 16 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 19 mai 2006 - 28 févr. 2006 à 11:44
cs_Le routier Messages postés 16 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 19 mai 2006 - 28 févr. 2006 à 13:50
Bonjour a tous ...

Je travail sous VB d'excel et j'ai une macro qui est super longue (elle dépend de la longueur d'une base de donnée exportée sous excel)

Je veux donc mettre une progress bar pour faire patienter l'utilisateur..

j'ai donc créé une form (Userform1) avec ma barre de progression (ProgressBar1 / min =0.1 / max =1000 ), mais je n'arrive pas à la lancer dans ma macro .. comment on fait ??

J'ai cherché dans le forum et j'ai trouvé plein de truc (show, activate... ) mais j'arrive pas et dans l'aide j'ai rien ..

Pouvez vous m'écrire 1 code qui la lance SVP ...(c ma 1ère utilisation ..)

voici 1 exemple de mon code (très simpliste lol ) :

Sub macro1

' Là je voudrais qu'elle se lance
action1
action2
action3
' Là je voudrais qu'elle disparaisse

End sub

Merci à ceux qui prendront 1 peu de leur temps pour m'aider ...
Tschuss

Les routiers sont sympas !!!
A voir également:

4 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 24
28 févr. 2006 à 13:26
Salut,




Au passage, on ne lance pas une progressbar. C'est juste un composant qui permet d'afficher une barre (bleue par défaut).

C'est à toi de dire : "A ce moment précis, je veux que la
progressbar affiche un dixième de ma barre bleue. A cet autre moment,
je veux qu'elle affiche la moitié de ma barre bleue, ..."



En aucun cas la progressbar ne va calculer elle-même quelle portion de code a déjà été exécutée et ce qu'il reste à faire.







Sub macro1


' Là je voudrais qu'elle se lance

ProgressBar1.Value = 0 ' 0%

action1

ProgressBar1.Value = ProgressBar1.Max*0.33 ' Affiche 33%
action2

ProgressBar1.Value = ProgressBar1.Max*0.66 ' Affiche 66%

action3

ProgressBar1.Value = ProgressBar1.Max ' Affiche 100%

' Là je voudrais qu'elle disparaisse



End sub

Manu
3
nounours21_6 Messages postés 255 Date d'inscription mercredi 3 novembre 2004 Statut Membre Dernière intervention 21 avril 2009
28 févr. 2006 à 11:48
bonjour,

il faut jouer sur la value de ta progress bar...
me.progressBar.value += 5

Enjoy @+
<<--<<--nOUnoURs-->>-->>
0
cs_Le routier Messages postés 16 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 19 mai 2006
28 févr. 2006 à 12:14
Merci d'avoir pris le temps de répondre, mais il me faudrait une réponse bcp plus complète pour y arriver ...

la form c'est bon mais pour le code j'ai rien du tout .. J'essaye avec les différentes réponses du forum mais elles sont incomplètes ou inadaptées ...

Si tu peux m'aider !!!

merci

Les routiers sont sympas !!!
0
cs_Le routier Messages postés 16 Date d'inscription lundi 20 février 2006 Statut Membre Dernière intervention 19 mai 2006
28 févr. 2006 à 13:50
MERCI BCP POUR TON AIDE !!! Ca marche

Les routiers sont sympas !!!
0
Rejoignez-nous