Macro auto_open clock digital

Fermé
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 3 nov. 2020 à 22:29
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 3 nov. 2020 à 23:09
Bonjour,
Je veux afficher dans la feuille"accueil" l'heure qui s’actualise en temps réel, mais le problème c'est quand je me déplace dans une autre feuille de travail excel me dirige instantanément vers la feuille "accueil", impossible de travailler sur une autre feuille
voila le code de la macro et merci d'avance
Sub auto_open()
Sheets("accueil").Select
    Range("A1").Value = Now()
    
        Application.OnTime Now + TimeValue("00:00:01"), "auto_open"
    
End Sub




Configuration: Windows / Chrome 86.0.4240.111
A voir également:

1 réponse

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié le 3 nov. 2020 à 23:14
Bonjour,

ben oui, tu actives une feuille, il le fait...
Essaie en remplaçant les 2 1ères lignes par :
ThisWorkbook.Sheets("accueil").Range("A1").Value = Now() 

Il faut aussi indiquer le classeur, sinon si tu travailles dans un autre soit ça plantera, soit ça ira t'écraser A1 s'il y trouve une feuille Accueil

A mon avis le clignotement du curseur et la perte des annulations possibles vont vite te saoûler et tu vas dégager ce style de macros inutiles.
L'heure tu l'as en bas à droite de l'écran...
eric
1