Entrée de cellule pour appeler une macro dans une cellule adjacente

Problème

J'ai un scénario que j'aimerais automatiser. Le scénario est le suivant

Si j’entre une valeur dans n’importe quelle cellule d’une colonne en particulier, j’aimerais que l’heure du système soit entrée dans la cellule adjacente. Actuellement, j'ai utilisé cette commande dans une macro pour le faire, mais c'est un processus manuel (ActiveCell.Value = Time) et je dois cliquer sur la cellule adjacente, puis appuyer sur les boutons de raccourci pour le faire à chaque fois.

Exemple:

Si je saisis 123 dans la cellule A2, je souhaite que l'heure système (par exemple, 18:59:33) soit capturée dans la cellule B2. Je souhaite continuer à entrer des valeurs dans la colonne 'A' les unes en dessous des autres, l'heure système étant automatiquement inscrite à la seconde dans la cellule adjacente correspondante de la colonne 'B'. Est-ce possible, ce serait génial si quelqu'un pouvait m'aider.

Solution

Implémentez ce code dans la feuille de calcul sur laquelle vous souhaitez qu'il fonctionne (cliquez avec le bouton droit de la souris sur l'onglet de la feuille de travail, cliquez sur le code d'affichage):

 Private Sub Worksheet_Change (cible ByVal en tant que plage) ActiveCell.Offset (-1, 1) = Time End Sub

Chaque fois que vous mettez quelque chose dans une cellule et que vous appuyez sur ENTREE, l'heure système actuelle est affichée dans la cellule adjacente à droite.