Ajout automatique de l'heure - Run-time error 1004

Résolu/Fermé
b.traven42
Messages postés
26
Date d'inscription
samedi 30 avril 2011
Statut
Membre
Dernière intervention
27 janvier 2017
- 26 janv. 2017 à 20:26
b.traven42
Messages postés
26
Date d'inscription
samedi 30 avril 2011
Statut
Membre
Dernière intervention
27 janvier 2017
- 27 janv. 2017 à 16:23
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:

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 ?

1 réponse

f894009
Messages postés
16626
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 août 2022
1 647
27 janv. 2017 à 09:10
Bonjour,
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
2
b.traven42
Messages postés
26
Date d'inscription
samedi 30 avril 2011
Statut
Membre
Dernière intervention
27 janvier 2017
2
27 janv. 2017 à 16:23
Ça marche parfaitement, merci ! :)
0