Comment insérer l'horodatage actuel lorsque les données d'une autre cellule changent dans Excel?

Supposons que vous receviez une feuille de calcul qui nécessite que vous modifiiez les données dans une certaine colonne. Et après avoir modifié la feuille de calcul, vous devez insérer l'horodatage modifié pour indiquer aux autres quelles cellules ont été modifiées. Comment y faire face? Cet article vous montrera la méthode d'insertion de l'horodatage actuel lorsque les données d'une autre cellule changent dans Excel, comme illustré ci-dessous.

Insérer l'horodatage actuel lorsque les données d'une autre cellule changent avec le code VBA

Insérer l'horodatage actuel lorsque les données d'une autre cellule changent avec le code VBA

Comme illustré ci-dessous, vous devez renseigner l'horodatage dans la colonne E si les cellules correspondantes de la colonne C sont modifiées. Veuillez faire comme suit.

1. Dans la feuille de calcul, vous devez modifier et marquer avec horodatage, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur Voir le code dans le menu contextuel.

2. Ensuite, copiez et collez le code VBA ci-dessous dans le Code fenêtre de la Microsoft Visual Basic pour applications la fenêtre. Voir la capture d'écran:

Code VBA: insérer l'horodatage actuel lorsque les données d'une autre cellule changent

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
    If xCol = xCellColumn Then
       Cells(xRow, xTimeColumn) = Now()
    Else
        On Error Resume Next
        Set xDPRg = Target.Dependents
        For Each xRg In xDPRg
            If xRg.Column = xCellColumn Then
                Cells(xRg.Row, xTimeColumn) = Now()
            End If
        Next
    End If
End If
End Sub

Notes: Dans le code, le numéro 3 signifie que vous allez modifier les données de la colonne C, et 5 indique que l'horodatage sera renseigné dans la colonne E. Veuillez les modifier en fonction de vos besoins.

3. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

À partir de maintenant, lors de la modification des données dans la colonne C, l'horodatage sera renseigné dans les cellules correspondantes de la colonne E, comme illustré ci-dessous.

Articles connexes:

• Comment insérer ou afficher le dernier horodatage enregistré sur une feuille de calcul dans Excel?
• Comment insérer un horodatage dans une cellule spécifique lorsque la macro est exécutée dans Excel?

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!

Lire la suite... Téléchargement Gratuit... Achat...