L'HEURE EN TEMPS RÉEL DANS UNE FEUILLE EXCEL

Signaler
Messages postés
42
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
15 mai 2011
-
Messages postés
6992
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
28 octobre 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/40324-l-heure-en-temps-reel-dans-une-feuille-excel

Messages postés
6992
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
28 octobre 2020
114
Très bon code, si vous voulez mettre l'heure dans une "UserForm", ajoutez un label et changez suivant le code suivant:
'Module
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

Public UpDateTimeRange As Range
Public UpDateTimeFormat As String

Public Sub UpDateTime(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
On Error Resume Next
UserForm1.Label1 = Format(Time, UpDateTimeFormat)
On Error GoTo 0
End Sub


'Commande
'start
Private Sub CommandButton1_Click()
UpDateTimeFormat = "HH:MM:SS"
SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime ‘On démarre l’heure

End Sub
'stop
Private Sub CommandButton2_Click()
KillTimer Application.hWnd, 0 'On arrête l'heure
End Sub
Messages postés
6
Date d'inscription
vendredi 16 juin 2006
Statut
Membre
Dernière intervention
9 février 2007

Bonjour à TOUS
CELTAR pour changer l'heure de cellule il suffit de modifier la ligne 30 comme suit :
pour la feuille 2 Cellule B4 par exemple
Worksheets(2).Cells(4,2).Value = Format(Time, "HH:MM:SS")
J'en profite pour bien spécifier qu'il s'agit d'une virgule et non d'un point pour séparer les valeurs de la propriété Cells(ligne, colonne).
Cependant si tu veux tu peux aussi modifier toujours cette fameuse ligne 30 en
ActiveSheet.ActiveCell.value= Format(Time, "HH:MM:SS")
ce qui n'effacera pas l'ancienne cellule sélectionnée, à moins bien sûr de rajouter un événement :"Private Sub Worksheet_SelectionChange(ByVal Target As Range) [...]End Sub" mais qui déplacera l'heure vers la cellule active.

COL :
J'ai moi aussi le message d'erreur qui vient de la propriété hWnd non gérée par l'objet application...
En cours de recherche de solution.
Si quelqu'un l'a déjà ... Je suis preneur. Merci
Messages postés
1
Date d'inscription
jeudi 4 janvier 2007
Statut
Membre
Dernière intervention
4 janvier 2007

bonjour

il m' est impossible de changer de cellule l' heure malgré les instruction ci dessus

"les indexes de Cells(a,b) où a est l'index de ligne et b l'index de colonne."

mon affichage reste sur la ligne 1(a) et colonne 2 (b)

si vous pouvais m' aider merci a vous.
Messages postés
25
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
13 octobre 2009

Bonjour !
J'ai testé le fichier du zip et j'ai toujours le même message d'erreur.
Afficher les 20 commentaires