Heure automatique Résolu/Fermé

Question

Bonjour, 
Comme je ne suis pas expert dans les VBA, j'ai une question. J'ai un fichier Excel pour calculer le temps de fabrication d'un produit. J'ai une heure de début en A1 disons, et quand la personne termine un premier produit, elle se place dans la cellule (disons A2) elle appui sur un bouton qui met l'heure de fin, puis ainsi de suite. J'ai trouvé la macro dans un forum pour faire cela qui est celle-ci :

Sub date_heure()
With ActiveCell
  .Value = Now
  .NumberFormat = "hh:mm"
  .Value = .Value
End With
End Sub

Ça fonctionne, et je peux l'utiliser tel quel, cependant, même si j'ai mis le format hh:mm, dans la barre de formule ça inscrit la date (15-04-2015  09:52:57). J'ai essayé de mettre "Sub heure()", mais ça ne fonctionne pas. Est-ce qu'il y a une autre façon de l'inscrire ou si je n'ai pas le choix que ça inscrive la date?

Merci beaucoup.

f894009 · Answer

Bonjour,

pour mettre l'heure courante dans une cellule: touche ctrl+:

Mike-31 · Answer

Bonsoir,

Commence par formater la plage destinée à recevoir les heures, exemple colonne A dans le format souhaité et simplement cette ligne
Sub Saisir_heure() 
ActiveCell = Time()
End Sub 

ou traiter le format dans le code
Sub Saisir_heure() 
With ActiveCell
.Value = Time()
.NumberFormat = "hh:mm"
End With
End Sub 
-
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Heure automatique

2 réponses

Discussions similaires