Comment insérer automatiquement la date ou l’heure actuelle dans une cellule en double-cliquant dans Excel ?
Saisir fréquemment la date actuelle, ou encore la date et l’heure, dans des cellules Excel peut vite devenir une tâche répétitive — notamment lors de la compilation de journaux, du suivi d’avancement ou de la gestion d’emplois du temps. Entrer manuellement ces informations à chaque fois prend non seulement du temps, mais augmente aussi le risque d’erreurs. Cet article vous propose une solution efficace : insérer automatiquement la date ou la date et l’heure actuelles en un simple double-clic, dans n’importe quelle cellule d’une plage prédéfinie de votre feuille de calcul. En appliquant les méthodes ci-dessous, vous optimisez votre flux de travail tout en assurant une saisie cohérente et fiable.
Double-cliquer pour ajouter/saisir automatiquement la date ou Date et heure à l’aide d’un code VBA
Double-cliquer pour ajouter/saisir automatiquement la date ou Date et heure à l’aide d’un code VBA
Si vous souhaitez insérer la date ou la date et l’heure dans une cellule en un simple double-clic, une courte macro VBA vous permet de le faire facilement. Idéale pour les formulaires, les feuilles de présence ou toute situation exigeant une saisie rapide et précise des dates, cette solution VBA cible une plage de cellules définie et met à jour instantanément le contenu dès le double-clic.
1. Dans votre feuille de calcul, cliquez avec le bouton droit sur l’onglet en bas correspondant à la feuille où vous souhaitez activer cette fonctionnalité, puis choisissez Afficher le code dans le menu contextuel. L’éditeur Visual Basic s’ouvre alors uniquement pour cette feuille ; assurez-vous d’avoir sélectionné la bonne feuille, car le code ne s’appliquera qu’à celle-ci.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, copiez et collez le code VBA ci-dessous dans la fenêtre de code de la feuille.
Code VBA : double-cliquer pour ajouter la date actuelle dans une cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
Cancel = True
Target.Formula = Date
End If
End SubRemarques:
Conseil pratique : double-cliquer en dehors de la plage limitée n’activera pas l’insertion de la date ; assurez-vous que vos cellules cibles soient bien incluses dans la plage définie.
Rappel en cas d’erreur : si le code ne fonctionne pas comme prévu, assurez-vous qu’il a bien été saisi dans la feuille de calcul appropriée (et non dans un module standard) et que les macros sont activées dans votre environnement Excel. Si vos paramètres de sécurité bloquent l’exécution des macros, vous devrez peut-être les ajuster via Fichier > Options > Centre de gestion de la confidentialité > Paramètres du Centre de gestion de la confidentialité.
3. Une fois le code saisi, appuyez simultanément sur Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications et revenir à votre feuille de calcul. Cette action garantit que toutes les modifications effectuées dans l’éditeur sont enregistrées.
Désormais, dès que vous double-cliquerez sur une cellule située dans la plage limitée (par exemple,)A1:B10), Excel la remplira automatiquement avec la date ou la date et l’heure actuelles, selon l’ajustement apporté au code. Cette automatisation simple vous fait gagner du temps et garantit une tenue cohérente des enregistrements.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Articles associés :
- Comment faire pour double-cliquer sur une cellule et ajouter 1 à sa valeur dans Excel ?
- Comment insérer une coche dans une cellule en double-cliquant sous Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels