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 ?

A voir également:

Ajout automatique de l'heure - Run-time error 1004
Time machine - Guide
Message automatique thunderbird - Guide
Erreur 1004 vba ✓ - Forum VB / VBA
2go internet = combien d'heure - Forum Opérateurs & Réseaux mobiles
Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

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 ! :)

Discussions similaires

desinstaller Vulkan run time libraries

Retrouver l'image originale après avoir fait des modifications ?

Qui sont les personnes dans mon ajout rapide de Snapchat ?

Comment savoir comment on nous a ajouté sur Snap

Ordi lenovo fan error

Discussions similaires

Newsletters