Office 2007 (Excel) : affichez un vrai chronomètre

Vous êtes ici : Accueil > Astuces

Publié le : 15/06/2011 vers 14h
Mise à jour le : 17/09/2010 vers 14h
Catégories :
  • Office

Auteur(s) :
Gilles SALOMON (Membre depuis le 08/10/2008)
Société :
Fonction :
Contactez cet auteur - Affichez les ressources de cet auteur

Vous organisez une course et vous souhaitez afficher, sur un écran, le chronomètre de chaque coureur ? Bien entendu, l'affichage doit être mis à jour en temps réel, comme sur les panneaux géants que l'on voit dans les stades.

Niveau : confirmé
Temps : 10 minutes

Calculer le temps de chaque coureur est facile : il suffit de soustraire son heure de départ de l'heure actuelle, comme nous l'avons fait, dans la cellule C2 de l'écran ci-contre, avec la formule =MAINTENANT()-B2. Mais comment faire en sorte que cette valeur soit mise à jour en permanence ? La seule solution consiste à créer puis à lancer une macro qui « tournera » en boucle en recalculant la feuille.

– Une fois vos formules de soustraction écrites, tapez Alt + F11 pour ouvrir l'éditeur VBA et entrez le listing qui figure à la fin de ce texte. Revenez sous Excel, enregistrez votre classeur, tapez Alt + F8, sélectionnez Boucle et cliquez sur Exécuter.
– Votre macro, une fois lancée, ne s'arrêtera pas toute seule. Pour la stopper, tapez Ctrl + Pause, puis cliquez sur Fin.
– Dans le listing, n'oubliez pas l'instruction DoEvents… Elle est sans utilité pour vos chronomètres, mais elle demande à Windows de vérifier périodiquement s'il se produit des « événements » (clic de souris, frappe d'une touche, activation d'une fenêtre…). Sans ce DoEvents, votre macro serait « sourde » et consommerait presque toutes les ressources du PC : il serait donc difficile de lancer d'autres logiciels, voire de basculer vers d'autres programmes ouverts.

De manière générale, utilisez cette macro sur toute feuille de calcul dont l'affichage doit être mis à jour en temps réel, par exemple un compte à rebours.
Sub Boucle()
While True
  DoEvents
  Application.Calculate
Wend
End Sub
(Source 01 net)

Votre commentaire:

Votre pseudo :

Votre commentaire :

Saisir les caractères ci-contre dans le champ suivant :
 Rafraichir

PseudoCommentaire
gordon
31/01/2017 18:31:46
f201BG http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com
matt
29/01/2017 16:11:46
bfPKOK http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com
chaba
29/01/2017 16:10:06
EMUYuz http://www.y7YwKx7Pm6OnyJvolbcwrWdoEnRF29pb.com
Barnypok
31/12/2016 11:35:03
jhGx8c http://www.FyLitCl7Pf7ojQdDUOLQOuaxTXbj5iNG.com
Nos partenaires : www.bestof-microsoft.com | www.exchangedump.com | www.exchangedump.com | www.formation-exchange.com | www.formation-management-dif.com | www.formation-mcpd.com | www.formation-pmp.com | www.formation-seven.com | www.formation-windows-7.com | www.formation-windows7.com | www.formation-windows-seven.com | www.certification-mcpd.com | www.certification-windows-7.com | www.consulting-exchange.com | www.e-managementinstitute.org | www.certification-mcitp.com | www.formation-mcsa.com | www.bestof-exchange.com | www.exchange-consulting.com | www.bestof-voip.com | www.formation-cisco.com www.formation-mcitp.com.com | www.laboratoire-exchange.com | www.messagerie-consultant.com | www.bestof-windows.com | www.bestof-sharepoint.com | www.messagerie-consultants.com | www.formation-mcts.com | www.consultant-messagerie.com