Passer au contenu principal

Comment mettre à jour ou insérer la date et l'heure (actuelles) par un bouton de commande dans Excel?

Normalement, de nombreux utilisateurs d'Excel ont tendance à insérer un horodatage avec la formule = MAINTENANT (). Avec cette formule, l'horodatage inséré sera mis à jour automatiquement chaque fois que vous ouvrez le classeur. Pour mettre à jour manuellement la date et l'heure dans une feuille de calcul à tout moment, comment y parvenir? Cet article vous montrera la méthode de mise à jour de la date et de l'heure actuelles en cliquant sur un bouton de commande dans Excel.

Mettre à jour la date et l'heure par un bouton de commande avec le code VBA

Mettre à jour la date et l'heure par un bouton de commande avec le code VBA

Veuillez procéder comme suit pour mettre à jour la date et l'heure à l'aide d'un bouton de commande dans Excel.

1. Insérez un bouton de commande en cliquant sur Développeur > insérer > Bouton de commande (contrôle ActiveX). Voir la capture d'écran:

2. Cliquez avec le bouton droit sur le bouton de commande inséré, puis cliquez sur Voir le code dans le menu contextuel.

3. Dans le pop-up Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine par le code VBA ci-dessous.

Code VBA: mettre à jour la date et l'heure par un bouton de commande dans Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Notes: Dans le code, CommandButton1 est le nom de votre bouton de commande inséré. Et A2 est la cellule dans laquelle la date et l'heure de mise à jour seront affichées. Veuillez les changer selon vos besoins.

4. Désactivez le mode Conception sous l'onglet Développeur. Cliquez sur le bouton de commande, puis la date et l'heure actuelles sont insérées dans la cellule A2.

Et chaque fois que vous cliquez sur le bouton de commande, la date et l'heure de la cellule A2 seront mises à jour immédiatement.

Articles connexes:

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples  |   VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule   |  Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules   |  Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils:  12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905

Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (7)
No ratings yet. Be the first to rate!
Rhonda
Rhonda
This comment was minimized by the moderator on the site
How do i update the code to put the time/date stamp in the cell NEXT to the button so it applies to each row thereon
Reply
0
0
Michelle
Michelle
This comment was minimized by the moderator on the site
I have a question. There is a workbook that we keep on a share drive for the whole team to access. I want to add this macro to it so anytime changes are made, we can simply pres the button and the time and date will auto populate at a click. Now here is the question, from this workbook, data is pulled to other workbooks if I save a new file as "Macro-Enabled" and delete the old "Non-Macro" workbook, will the data continue to pull from this new workbook or will I need to fix all the other workbooks.
Reply
0
0
crystal
crystal     Michelle
This comment was minimized by the moderator on the site
Hi Michelle,
After saving the workbook as an Macro-Enabled Excel workbook, the code still works fine.
Reply
Report
0
0
raph
raph
This comment was minimized by the moderator on the site
Awesome! Thanks for this tutorial.


However, how do i insert ONLY the date in DD/MM/YYYY format?
Reply
0
0
crystal
crystal     raph
This comment was minimized by the moderator on the site
Hi,
You can format the output cell as Short Date formatting to solve the problem.
Reply
Report
0
0
joeywarren27@gmail.com
This comment was minimized by the moderator on the site
Hi there.. this is really good basic info..


One question - how do you modify the code to put the datestamp into the NEXT row below, each time the button is pressed? (keeping the data previously written above?)


Thank you so much!
Reply
Report
0
0
crystal
crystal    
This comment was minimized by the moderator on the site
Hi,
The below VBA code will work on selected cell. When you want to insert timestampe to a cell, just select it and press the button.

Private Sub CommandButton1_Click()
Dim xRg As Range
On Error Resume Next
Set xRg = Selection
xRg.Value = Now()
End Sub
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations