Ajout automatique de l'heure - Run-time error 1004Résolu/Fermé

Question

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 ?
Configuration: Windows / Chrome 55.0.2883.87

f894009 · Accepted Answer

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

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

1 réponse

Newsletters