Heure automatique
Résolu
Marlj
Messages postés
58
Date d'inscription
Statut
Membre
Dernière intervention
-
Marlj Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
Marlj Messages postés 58 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Heure automatique
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Sommaire automatique word - Guide
- Réponse automatique gmail - Guide
2 réponses
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.
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.