Accueil > > > L'HEURE EN TEMPS RÉEL DANS UNE FEUILLE EXCEL
L'HEURE EN TEMPS RÉEL DANS UNE FEUILLE EXCEL
Information sur la source
Description
Petit bout de code expliquant comment utiliser une API en VBA pour afficher seconde après seconde l'heure en temps réel dans une cellule d'une feuille Excel...
Source
- 'Dans la partie workbook du classeur, insérer le code suivant
- '============================================================
-
- 'On initialise le timer système dès l'ouverture du classeur
- Private Sub Workbook_Open()
- 'Utilisation de l'API SetTimer toutes les secondes (1000 millisecondes) pour appeler la procédure UpDateTime
- SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
- End Sub
-
- 'A la fermeture du classeur, on nettoie la place en supprimant l'appel au timer système
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- 'On utilise le handle de l'application et l'ID de l'objet liés lors de l'initialisation du timer
- KillTimer Application.hWnd, 0
- End Sub
-
-
- 'Dans un module séparé, insérer le code suivant
- '==============================================
-
- 'On définit les 2 APIs systèmes qui seront utilisées
- Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
- Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
-
- 'La fameuse fonction UpDateTime qui va se charger d'écrire dans la cellule voulue l'heure actuelle à chaque seconde
- Public Sub UpDateTime (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
- 'Afin que la feuille ne se ferme pas de manière inoportune suite à une erreur interne
- '(lors de l'édition d'une cellule ou l'accès à certaines boîtes de dialogue par exemple)
- On Error Resume Next
- 'On écrit l'heure selon le format HH:MM:SS sur 24 heures.
- Worksheets(1).Cells(1.1).Value = Format(Time,"HH:MM:SS")
- On Error Goto 0
- End Sub
'Dans la partie workbook du classeur, insérer le code suivant
'============================================================
'On initialise le timer système dès l'ouverture du classeur
Private Sub Workbook_Open()
'Utilisation de l'API SetTimer toutes les secondes (1000 millisecondes) pour appeler la procédure UpDateTime
SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
End Sub
'A la fermeture du classeur, on nettoie la place en supprimant l'appel au timer système
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'On utilise le handle de l'application et l'ID de l'objet liés lors de l'initialisation du timer
KillTimer Application.hWnd, 0
End Sub
'Dans un module séparé, insérer le code suivant
'==============================================
'On définit les 2 APIs systèmes qui seront utilisées
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
'La fameuse fonction UpDateTime qui va se charger d'écrire dans la cellule voulue l'heure actuelle à chaque seconde
Public Sub UpDateTime (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
'Afin que la feuille ne se ferme pas de manière inoportune suite à une erreur interne
'(lors de l'édition d'une cellule ou l'accès à certaines boîtes de dialogue par exemple)
On Error Resume Next
'On écrit l'heure selon le format HH:MM:SS sur 24 heures.
Worksheets(1).Cells(1.1).Value = Format(Time,"HH:MM:SS")
On Error Goto 0
End Sub
Conclusion
C'est tout et très simpliste (je n'ai pas dis "simple"), j'espère que ça vous aidera...
Comme défaut connu, on peut constater que lors de l'édition d'une cellule, l'heure est figée jusqu'à annulation ou validation de l'édition.
J'ai mis le code sur initié même s'il me semble simple à comprendre et très court car on appelle des APIs qui provoquent facilement un plantage de la feuille et sa fermeture immédiate. N'oubliez pas de sauver votre travail régulièrement si vous expérimentez...
Historique
- 15 novembre 2006 08:44:23 :
- Mise à jour de la déclaration de l'API KillTimer qui faisait planter la feuille à la fermeture...
- 17 novembre 2006 12:37:04 :
- Fichier exemple ajouté
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
graph en temps réel !! [ par nico ]
j'ai fait un programme pour avoir la température et je souhaiterais faire un graph de la température en temps réel !pour cela j'ai insérer un graph ex
affichage de l'heure en temps réel [ par jkpomaho ]
Très cordialementje recherche un code qui affiche l'heure en teps réel
Heure en temps réel dans un StatusStrip [ par Nexto ]
Hello,J'ai beau regarder dans les forums VB et je ne trouve pas. Je voudrais tout simplement afficher l'heure en temps réel dans un label (qui se
compteur avec l'heure et la date en temps réel [ par Dane6 ]
Bonjour, Je voudrais afficher un compteur avec l'heure et la date dans un programme. J'ai chercher dans MSDN après cette fonction, un peu partout sur
Mes feuilles excel ne sont pas actualisées par mon UserForm [ par arthur0201 ]
Re-bonjour tous le monde,Voilà mon problème:Mon UserForm n'actualise pas mes feuille excel! Je m'explique; j'ai une feuille excel 'saisie feuille de t
Macro impression automatique à un jour et une heure donnée sur Excel [ par pascojulien ]
Bonjour,J'ai crée un fichier Excel, et j'aimerai que celui-ci s'imprime automatiquement tout les lundi à 10H je pense que l'on peut faire sa pas la mi
Insérer une notion de temps dans Excel [ par Bysnu ]
Bonjour à tous,Je récupère actuellement des données de masses sous Excel par l'intermédiaire d'une balance.Je désirerais ajouter à chaque mesure de ma
programmation sous visual basic editor excel [ par validator44 ]
C'est ma première incursion dans ce forum alors Bonjour à tous et toutes.Je dois développer un application pour mon travail.Dans un tableau excel j'ai
réouverture excel après compte à rebours [ par stann29 ]
bonjour, j'ai un fichier excel avec un compte à rebours pour qu'il se ferme automatiquement si inactif. Seulement j'ai d'autres fichiers en cours d'ut
Format heure dans textbox [ par gweltaz29 ]
Salut,J'ai une userform avec des textbox. Quand je l'ouvre, ma macro affecte à la valeur de la textbox le contenu d'une cellule Excel. Ce contenu est
|
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|