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
Modérateur
Dernière intervention
23 décembre 2008
23
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