Les horodatages sont une excellente ressource pour identifier quand un événement s'est produit. Microsoft Excel vous offre la possibilité d'ajouter des horodatages au format jj : mm : aaaa hh : mm : ss. La plupart du temps, vous devez utiliser des raccourcis clavier ou exécuter des fonctions Excel pour ajouter les horodatages, ce qui est une tâche manuelle et sujette aux erreurs.
L'éditeur de code Excel Visual Basic vient à votre secours en vous permettant d'automatiser l'ensemble de la tâche à l'aide des scripts d'horodatage VBA. Vous pouvez également ajouter des conditions complexes pour automatiser davantage la tâche sans dépendre de l'opérateur ou du collaborateur de saisie de données. Lisez la suite pour apprendre quelques astuces simples pour utiliser VBA pour ajouter des horodatages dans Excel.
1. Comment ajouter l'horodatage VBA : Macro QAT
Le code VBA suivant vous permet d'exécuter la fonction de journal des événements quand vous le souhaitez en un seul clic depuis la barre d'outils d'accès rapide d'Excel ou QAT. C'est similaire à l'exécution d'une macro Excel VBA , vous devez donc enregistrer la feuille de calcul existante à l'aide d'une extension de fichier compatible Macro après avoir appliqué le code VBA :
- Cliquez avec le bouton droit sur l'onglet de la feuille de calcul et cliquez sur Afficher le code dans le menu contextuel.
- Copiez-collez ce code VBA dans l'éditeur de code puis cliquez sur Enregistrer .
Sub vba_timeStamp() Dim ts As Date With Selection .Value = Date + Time End With End Sub
- Enregistrez le classeur en tant que fichier prenant en charge les macros.
- Maintenant, cliquez sur l' onglet Fichier et choisissez Options dans le menu Fichier.
- Cliquez sur la barre d'outils d'accès rapide (QAT), puis faites défiler la liste pour trouver Afficher les macros .
- Ajoutez View Macros au QAT et fermez le menu Options en cliquant sur Ok .
- Maintenant, exécutez la macro à partir du QAT lorsque vous devez ajouter un horodatage en exécutant le code VBA.
Pour automatiser entièrement la tâche de création d'horodatage, vous pouvez utiliser les scripts VBA mentionnés ci-dessous.
2. Comment ajouter l'horodatage VBA : lorsque la feuille de calcul change
Le code VBA suivant ajoutera un horodatage dans les cellules de la colonne B lorsqu'il détectera des changements dans les cellules correspondantes de la colonne A :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Value <> "" Then Application.EnableEvents = False Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm:ss") Application.EnableEvents = True End If End Sub
Suivez les étapes mentionnées dans la première méthode pour ouvrir l'éditeur de code VBA. Maintenant, double-cliquez sur Sheet1 (Sheet1) dans le menu VBAProject (Book1) pour activer le suivi des modifications de la feuille de calcul.
L'éditeur de code doit afficher Worksheet dans la liste déroulante de gauche et SelectionChange dans la liste déroulante de droite. Vous pouvez maintenant copier-coller le code VBA ci-dessus. Une fois cela fait, n'oubliez pas d'enregistrer le fichier en tant que classeur Excel prenant en charge les macros.
Chaque fois que vous exécutez cette macro, Excel ajoute automatiquement un horodatage dans la colonne B si vous écrivez quelque chose dans la colonne A . Vous pouvez également ajouter la macro à QAT en suivant les étapes mentionnées dans la méthode précédente pour ajouter le script VBA.
Derniers mots
Maintenant que vous savez comment utiliser l'éditeur de code Excel VBA avec les codes d'horodatage VBA susmentionnés, vous pouvez commencer à modifier votre classeur Excel pour insérer automatiquement des horodatages quand vous le souhaitez.
Cependant, toutes les modifications que vous apportez à votre feuille de calcul Excel en exécutant un code VBA ne disparaîtront pas si vous appuyez sur le raccourci clavier d'annulation. Par conséquent, faites des copies de sauvegarde avant d'appliquer ces simples scripts VBA. Excel VBA peut également effectuer d'autres fonctions intéressantes, par exemple, vous pouvez utiliser VBA pour insérer des lignes dans Microsoft Excel.