L'HEURE EN TEMPS RÉEL DANS UNE FEUILLE EXCEL
dedederidiny
Messages postés
42
Date d'inscription
dimanche 1 février 2004
Statut
Membre
Dernière intervention
15 mai 2011
-
15 nov. 2006 à 06:27
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 8 avril 2008 à 08:29
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 8 avril 2008 à 08:29
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
https://codes-sources.commentcamarche.net/source/40324-l-heure-en-temps-reel-dans-une-feuille-excel
8 avril 2008 à 08:29
'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
9 févr. 2007 à 12:39
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
4 janv. 2007 à 22:13
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.
20 nov. 2006 à 16:06
J'ai testé le fichier du zip et j'ai toujours le même message d'erreur.
17 nov. 2006 à 12:41
Dokle: Peux-tu préciser? je ne vois pas ce qui peut clocher dans une fonction aussi simple que Cells(ligne,colonne)...
17 nov. 2006 à 08:04
16 nov. 2006 à 13:39
16 nov. 2006 à 12:52
Normalement ça devrait fonctionner...
16 nov. 2006 à 11:29
Il faudrait que tu décomposes l'instruction pour savoir si c'est SetTimer qui pose problème, ou bien AdresseOf
16 nov. 2006 à 11:07
16 nov. 2006 à 11:05
16 nov. 2006 à 11:00
ce code est très interessant, mais à l'ouverture la macro bloque sur "SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime"
Col.
16 nov. 2006 à 10:32
Pas de DLLs cachées pour la transportabilité, comme pour un prog VB6.
16 nov. 2006 à 10:08
l'index de worksheets pour changer de feuille (1=1ère feuille, 2=2ème, etc...) et
les indexes de Cells(a,b) où a est l'index de ligne et b l'index de colonne.
Sinon Econs a tout dit...
David
16 nov. 2006 à 09:19
16 nov. 2006 à 09:16
A la rigueur, il manque l'instruction "Ouvrir Excel, puis l'éditeur de Macro". Ensuite, tout est écrit ci-dessus.
16 nov. 2006 à 08:54
15 nov. 2006 à 08:46
Si vous avez des suggestions ou des remarques, c'est avec plaisir que je les lis !
15 nov. 2006 à 08:32
C'est bizarre, je l'avais testé chez moi et ça fonctionnait... je vais voir ce qu'il en est aujourd'hui et corriger ça...
David
15 nov. 2006 à 06:27
la macro Workbook_BeforeClose donne une erreur chez moi. salut