Macro pour afficher l'heure

msgbox format(time,"h:m:s")

Merci ! C'est presque ce que je souhaite sauf que je voudrais non pas que cela s'affiche dans une msgbox mais dans une case précise (style feuille1 case B12) par exemple.

Bonsoir François C.
Tape = MAINTENANT()
Formate ta cellule en "Heures"
Bonne soirée
Jean

Bonsoir François, Papy, Sousou

Alors tout d'abord François :



Et donc en complément de ce que Sousou t'a donné comme code, je te propose ceci :

Sub WriteTime()
Dim TheTime As Date
Dim L As Long

TheTime = Time

L = Range("A65536").End(xlUp).Row + 1

Range("A" & L) = Format(TheTime, "HH:MM:SS")

End Sub


Le principe est Simple L est la dernière ligne non vide en partant du bas dans la colonne A... On ajoute + 1 pour arriver donc à la dernière cellule Vide...

Ensuite il suffit de reporter dans "A" et ce fameux L la variable "TheTime" au format voulu...

Sinon la formule de Papy, mais attention l'heure affichée ainsi sera réactualisée...

Bonne Saint Valentin
@+Thierry