Ajout automatique de l'heure - Run-time error 1004
Résolu
b.traven42
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
b.traven42 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
b.traven42 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un fichier excel (je suis sur la version 2010) dont je me sers comme feuille d'heure pour mesurer le temps que je passe sur différentes tâches. J'ai une macro activée par un boutonqui va dans la colonne affecter à l'heure, qui cherche la dernière cellule non remplie et qui ajoute l'heure actuelle. Le code est le suivant:
L'ennui, c'est que lorsque il n'y a encore aucune heure et que j'active la macro pour qu'elle entre une valeur pour la ligne 2 (la ligne 1 contenant le titre de la colonne), rien ne se passe et une fenêtre indique "Run-time error 1004". En revanche, si j'entre l'heure dans la première ligne manuellement, tout va bien, la macro indique bien l'heure sur la bonne colonne et descend d'une ligne à chaque fois.
Que dois-je faire ?
J'ai un fichier excel (je suis sur la version 2010) dont je me sers comme feuille d'heure pour mesurer le temps que je passe sur différentes tâches. J'ai une macro activée par un boutonqui va dans la colonne affecter à l'heure, qui cherche la dernière cellule non remplie et qui ajoute l'heure actuelle. Le code est le suivant:
Sub add_time()
Sheets("Daily hours").Range("B1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = Time
ActiveCell.NumberFormat = "h:mm"
End Sub
L'ennui, c'est que lorsque il n'y a encore aucune heure et que j'active la macro pour qu'elle entre une valeur pour la ligne 2 (la ligne 1 contenant le titre de la colonne), rien ne se passe et une fenêtre indique "Run-time error 1004". En revanche, si j'entre l'heure dans la première ligne manuellement, tout va bien, la macro indique bien l'heure sur la bonne colonne et descend d'une ligne à chaque fois.
Que dois-je faire ?
A voir également:
- Ajout automatique de l'heure - Run-time error 1004
- Popcorn time - Télécharger - TV & Vidéo
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Quick time - Télécharger - Lecture
- Salat time - Télécharger - Agendas & Calendriers
1 réponse
Bonjour,
Mieux sans les select
Mieux sans les select
Sub add_time()
With Sheets("Daily hours")
With .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row + 1)
.Value = Time
.NumberFormat = "h:mm"
End With
End With
End Sub
b.traven42
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
2
Ça marche parfaitement, merci ! :)