[Résolu][Calc] Mettre heure date en temps réel dans cellule

[GHOUVIZ]

Bonjour
Merci de m'apprendre à comment renseigner dans une cellule calc , la date de la veille , et une autre l'heure en temps réel ?
crdt

[Churay]

Bonjour

Code : Tout sélectionner

Sub Main
Dim oSheet AS Object
	' La feuille active
	oSheet = thisComponent.CurrentController.ActiveSheet
	
	' La date d'hier = aujourd'hui - 1 jour
	oSheet.getCellRangeByName("B1").Value = Now - 1
	' Si la cellule n'est pas formattée on fait afficher JJ/MM/AAAA
	oSheet.getCellRangeByName("B1").NumberFormat = 30

	' L'heure actuelle
	oSheet.getCellRangeByName("D1").Value = Now
	' Si la cellule n'est pas formattée on fait afficher HH/MM/SS
	oSheet.getCellRangeByName("D1").NumberFormat = 41
End Sub

[GHOUVIZ]

merci pour ta réactivité churay , mais je ne comprend pas ?
je doit copier quoi pour coller dans ma cellule?

[Churay]

Tu es en zone Macros, j'ai répondu avec une macro...

Il faut associer la macro à un bouton ou à un évènement feuille ou à ce que tu veux

[GHOUVIZ]

Merci