OVH Cloud OVH Cloud

visualiser le temps écoulé avec une progress bar

14 réponses
Avatar
Alfred WALLACE
Bonjour =E0 tous,
j'ai beaucoup de mal =E0 faire la chose suivante :
dans une feuille, en colonne A
j'ai un libell=E9, et en colonne B j'ai la dur=E9e
en HH:MM

j'aimerai lancer une macro qui ouvre un formulaire
qui affiche le libell=E9, et, en dessous
une barre de progression montrant l'=E9coulement
du temps entre l'instant du d=E9marrage et la fin.
si par exemple la dur=E9e est de 00:30 j'aimerai
faire une barre de progression repr=E9sentant donc
30 minutes et la progression serait le d=E9filement
du temps.

je n'arrive pas =E0 transposer les exemples que j'ai vu
sur le sujet.

Merci de votre aide.

Jos=E9

4 réponses

1 2
Avatar
dyj Orange
Je pense faire ce que tu me décris.
Suppression du control sur le feuille. Ajout du nouveau control (il apparait
bien sur feuil1). Clique droit pour me donner le nom: ProgressBar1.
Remplacement du nom dans ta procédure par ProgressBar1.
Si je compile, toujours la même erreur sur [D25], sauf que maintenant il me
dit que: Microsoft Windows controls 5.0 (SP2), est manquant" ???

"isabelle" a écrit dans le message de groupe de discussion :
icom3q$tag$

pour inserer un control c'est dans l'onglet Développeur

http://cjoint.com/?0lAreXcSbt7

pour connaitre son nom, une fois le control inseré,
fait un clic droit sur celui-ci et sélectionne "Visualiser le code".

isabelle


Le 2010-11-26 10:47, dyj Orange a écrit :
Excuse moi, mais c'est compliqué pour moi. Merci d'avoir tenté de m'aider.

"isabelle" a écrit dans le message de groupe de discussion :
icoe3q$bdh$

bonjour dyj Orange,

il faudrait que tu supprimes le control ProgressBar sur la feuille et
que tu mettes à la place le
"Microsoft ProgressBar control" disponible sur ta version, également
modifier le nom du control dans la macro.

isabelle

Le 2010-11-26 08:46, dyj Orange a écrit :
C'est pareil. Il semble que ce contrôle soit manquant chez moi ?
control: "Microsoft ProgressBar control, version 5.0 (SP2)"

"isabelle" a écrit dans le message de groupe de discussion :
ico6bd$p1f$

bonjour dyj Orange,

essai comme ça,
[D25] = [Now()]

isabelle


Le 2010-11-26 02:37, dyj Orange a écrit :
Bonjour Isabelle, Je suis aussi intéressé par ton exemple, mais dès que
je veux l'exécuter, j'ai une erreur de compilation sur le ligne
[D25]=Now.
"Projet ou bibliothèque introuvable".
Est ce dû à mon installation Office 2007 ou à mon 7 Home premium ?
Merci de ton aide.

"isabelle" a écrit dans le message de groupe de discussion :
icmclq$ovk$

bonjour José,

j'ai fais un autre exemple, mais cette fois j'ai mit sur la feuille
un control "Microsoft ProgressBar control, version 5.0 (SP2)"

http://cjoint.com/?0lzukHofKs6






Avatar
isabelle
bonjour dyj Orange,

vérifie qu'il n'y ait pas de référence cocher manquante dans le project

isabelle


Le 2010-11-27 05:00, dyj Orange a écrit :
Je pense faire ce que tu me décris.
Suppression du control sur le feuille. Ajout du nouveau control (il
apparait bien sur feuil1). Clique droit pour me donner le nom:
ProgressBar1. Remplacement du nom dans ta procédure par ProgressBar1.
Si je compile, toujours la même erreur sur [D25], sauf que maintenant il
me dit que: Microsoft Windows controls 5.0 (SP2), est manquant" ???

"isabelle" a écrit dans le message de groupe de discussion :
icom3q$tag$

pour inserer un control c'est dans l'onglet Développeur

http://cjoint.com/?0lAreXcSbt7

pour connaitre son nom, une fois le control inseré,
fait un clic droit sur celui-ci et sélectionne "Visualiser le code".

isabelle


Le 2010-11-26 10:47, dyj Orange a écrit :
Excuse moi, mais c'est compliqué pour moi. Merci d'avoir tenté de
m'aider.

"isabelle" a écrit dans le message de groupe de discussion :
icoe3q$bdh$

bonjour dyj Orange,

il faudrait que tu supprimes le control ProgressBar sur la feuille et
que tu mettes à la place le
"Microsoft ProgressBar control" disponible sur ta version, également
modifier le nom du control dans la macro.

isabelle

Le 2010-11-26 08:46, dyj Orange a écrit :
C'est pareil. Il semble que ce contrôle soit manquant chez moi ?
control: "Microsoft ProgressBar control, version 5.0 (SP2)"

"isabelle" a écrit dans le message de groupe de discussion :
ico6bd$p1f$

bonjour dyj Orange,

essai comme ça,
[D25] = [Now()]

isabelle


Le 2010-11-26 02:37, dyj Orange a écrit :
Bonjour Isabelle, Je suis aussi intéressé par ton exemple, mais dès que
je veux l'exécuter, j'ai une erreur de compilation sur le ligne
[D25]=Now.
"Projet ou bibliothèque introuvable".
Est ce dû à mon installation Office 2007 ou à mon 7 Home premium ?
Merci de ton aide.

"isabelle" a écrit dans le message de groupe de discussion :
icmclq$ovk$

bonjour José,

j'ai fais un autre exemple, mais cette fois j'ai mit sur la feuille
un control "Microsoft ProgressBar control, version 5.0 (SP2)"

http://cjoint.com/?0lzukHofKs6









Avatar
dyj Orange
Si, mais dès que je compile le vba, il me dit que "Microsoft Windows
controls 5.0 (SP2)" est manquant en m'indiquant dans la fenêtre ouverte:
c:winntsystem32comctl32.ocx
Sur mon installation Win7 Home Premuim, je n'ai ni le répertoire c:winnt,
ni comctl32.ocx


"isabelle" a écrit dans le message de groupe de discussion :
icuj2p$r4s$

bonjour dyj Orange,

vérifie qu'il n'y ait pas de référence cocher manquante dans le project

isabelle


Le 2010-11-27 05:00, dyj Orange a écrit :
Je pense faire ce que tu me décris.
Suppression du control sur le feuille. Ajout du nouveau control (il
apparait bien sur feuil1). Clique droit pour me donner le nom:
ProgressBar1. Remplacement du nom dans ta procédure par ProgressBar1.
Si je compile, toujours la même erreur sur [D25], sauf que maintenant il
me dit que: Microsoft Windows controls 5.0 (SP2), est manquant" ???

"isabelle" a écrit dans le message de groupe de discussion :
icom3q$tag$

pour inserer un control c'est dans l'onglet Développeur

http://cjoint.com/?0lAreXcSbt7

pour connaitre son nom, une fois le control inseré,
fait un clic droit sur celui-ci et sélectionne "Visualiser le code".

isabelle


Le 2010-11-26 10:47, dyj Orange a écrit :
Excuse moi, mais c'est compliqué pour moi. Merci d'avoir tenté de
m'aider.

"isabelle" a écrit dans le message de groupe de discussion :
icoe3q$bdh$

bonjour dyj Orange,

il faudrait que tu supprimes le control ProgressBar sur la feuille et
que tu mettes à la place le
"Microsoft ProgressBar control" disponible sur ta version, également
modifier le nom du control dans la macro.

isabelle

Le 2010-11-26 08:46, dyj Orange a écrit :
C'est pareil. Il semble que ce contrôle soit manquant chez moi ?
control: "Microsoft ProgressBar control, version 5.0 (SP2)"

"isabelle" a écrit dans le message de groupe de discussion :
ico6bd$p1f$

bonjour dyj Orange,

essai comme ça,
[D25] = [Now()]

isabelle


Le 2010-11-26 02:37, dyj Orange a écrit :
Bonjour Isabelle, Je suis aussi intéressé par ton exemple, mais dès que
je veux l'exécuter, j'ai une erreur de compilation sur le ligne
[D25]=Now.
"Projet ou bibliothèque introuvable".
Est ce dû à mon installation Office 2007 ou à mon 7 Home premium ?
Merci de ton aide.

"isabelle" a écrit dans le message de groupe de discussion :
icmclq$ovk$

bonjour José,

j'ai fais un autre exemple, mais cette fois j'ai mit sur la feuille
un control "Microsoft ProgressBar control, version 5.0 (SP2)"

http://cjoint.com/?0lzukHofKs6









Avatar
dyj Orange
Autres infos intéressantes, j'ai essayé ton exemple sur mon système XP à
jour, avec Office 2003 et Office 2007 d'installés et à jour, et bien ça
marche.

"isabelle" a écrit dans le message de groupe de discussion :
icuj2p$r4s$

bonjour dyj Orange,

vérifie qu'il n'y ait pas de référence cocher manquante dans le project

isabelle


Le 2010-11-27 05:00, dyj Orange a écrit :
Je pense faire ce que tu me décris.
Suppression du control sur le feuille. Ajout du nouveau control (il
apparait bien sur feuil1). Clique droit pour me donner le nom:
ProgressBar1. Remplacement du nom dans ta procédure par ProgressBar1.
Si je compile, toujours la même erreur sur [D25], sauf que maintenant il
me dit que: Microsoft Windows controls 5.0 (SP2), est manquant" ???

"isabelle" a écrit dans le message de groupe de discussion :
icom3q$tag$

pour inserer un control c'est dans l'onglet Développeur

http://cjoint.com/?0lAreXcSbt7

pour connaitre son nom, une fois le control inseré,
fait un clic droit sur celui-ci et sélectionne "Visualiser le code".

isabelle


Le 2010-11-26 10:47, dyj Orange a écrit :
Excuse moi, mais c'est compliqué pour moi. Merci d'avoir tenté de
m'aider.

"isabelle" a écrit dans le message de groupe de discussion :
icoe3q$bdh$

bonjour dyj Orange,

il faudrait que tu supprimes le control ProgressBar sur la feuille et
que tu mettes à la place le
"Microsoft ProgressBar control" disponible sur ta version, également
modifier le nom du control dans la macro.

isabelle

Le 2010-11-26 08:46, dyj Orange a écrit :
C'est pareil. Il semble que ce contrôle soit manquant chez moi ?
control: "Microsoft ProgressBar control, version 5.0 (SP2)"

"isabelle" a écrit dans le message de groupe de discussion :
ico6bd$p1f$

bonjour dyj Orange,

essai comme ça,
[D25] = [Now()]

isabelle


Le 2010-11-26 02:37, dyj Orange a écrit :
Bonjour Isabelle, Je suis aussi intéressé par ton exemple, mais dès que
je veux l'exécuter, j'ai une erreur de compilation sur le ligne
[D25]=Now.
"Projet ou bibliothèque introuvable".
Est ce dû à mon installation Office 2007 ou à mon 7 Home premium ?
Merci de ton aide.

"isabelle" a écrit dans le message de groupe de discussion :
icmclq$ovk$

bonjour José,

j'ai fais un autre exemple, mais cette fois j'ai mit sur la feuille
un control "Microsoft ProgressBar control, version 5.0 (SP2)"

http://cjoint.com/?0lzukHofKs6









1 2