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

Signaler
Messages postés
26
Date d'inscription
samedi 30 avril 2011
Statut
Membre
Dernière intervention
27 janvier 2017
-
Messages postés
26
Date d'inscription
samedi 30 avril 2011
Statut
Membre
Dernière intervention
27 janvier 2017
-
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

Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 502
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
26
Date d'inscription
samedi 30 avril 2011
Statut
Membre
Dernière intervention
27 janvier 2017
1
Ça marche parfaitement, merci ! :)