Comment remplir automatiquement la date dans la cellule lorsque la cellule adjacente est mise à jour dans Excel?
Parfois, lors de la mise à jour d'une cellule dans une certaine colonne, vous souhaiterez peut-être marquer la dernière date de mise à jour. Cet article recommandera une méthode VBA pour résoudre ce problème. Lorsque la cellule est mise à jour, la cellule adjacente sera automatiquement remplie avec la date actuelle immédiatement.
Remplir automatiquement la date actuelle dans la cellule lorsque la cellule adjacente est mise à jour avec le code VBA
En supposant que les données que vous devez mettre à jour se trouvent dans la colonne B, et lorsque la cellule de la colonne B est mise à jour, la date actuelle sera renseignée dans la cellule adjacente de la colonne A. Voir capture d'écran:
Vous pouvez exécuter le code VBA suivant pour résoudre ce problème.
1. Cliquez avec le bouton droit sur l'onglet de la feuille dont vous avez besoin pour renseigner automatiquement la date en fonction de la cellule mise à jour adjacente, puis cliquez sur Voir le code dans le menu contextuel.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, copiez et collez le code VBA ci-dessous dans la fenêtre Code.
Code VBA: remplissage automatique de la date actuelle dans une cellule lorsque la cellule adjacente est mise à jour
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Notes:
3. presse autre + Q clés en même temps pour fermer le Microsoft Visual Basic pour applications fenêtre.
À partir de maintenant, lors de la mise à jour des cellules de la colonne B, la cellule adjacente de la colonne A sera immédiatement remplie avec la date actuelle. Voir la capture d'écran:
Articles Liés:
- Comment remplir automatiquement d'autres cellules lors de la sélection de valeurs dans la liste déroulante Excel?
- Comment effectuer une saisie semi-automatique lors de la saisie dans la liste déroulante Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et 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...
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!