Fonctionnement d'une Progress bar .... BOUUUHHHH !!!! [Résolu]

cs_Le routier 16 Messages postés lundi 20 février 2006Date d'inscription 19 mai 2006 Dernière intervention - 28 févr. 2006 à 11:44 - Dernière réponse : cs_Le routier 16 Messages postés lundi 20 février 2006Date d'inscription 19 mai 2006 Dernière intervention
- 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 !!!
Afficher la suite 

4 réponses

Meilleure réponse
econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 28 févr. 2006 à 13:26
3
Merci
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

Merci econs 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

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

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

Enjoy @+
<<--<<--nOUnoURs-->>-->>
cs_Le routier 16 Messages postés lundi 20 février 2006Date d'inscription 19 mai 2006 Dernière intervention - 28 févr. 2006 à 12:14
0
Merci
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 !!!
cs_Le routier 16 Messages postés lundi 20 février 2006Date d'inscription 19 mai 2006 Dernière intervention - 28 févr. 2006 à 13:50
0
Merci
MERCI BCP POUR TON AIDE !!! Ca marche

Les routiers sont sympas !!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.