Comment enregistrer les valeurs changeantes dans une cellule dans Excel ?

Comment enregistrer chaque valeur changeante pour une cellule qui change fréquemment dans Excel ? Par exemple, la valeur d'origine dans la cellule C2 est 100. Lorsque vous changez le nombre 100 en 200, la valeur d'origine, 100, sera automatiquement affichée dans la cellule D2 pour l'enregistrement. Lorsque vous changez 200 en 300, le nombre 200 sera inséré dans la cellule D3, changer 300 en 400 affichera 300 dans D4 et ainsi de suite. La méthode décrite dans cet article peut vous aider à y parvenir.

Enregistrer les valeurs changeantes dans une cellule avec un code VBA

Enregistrer les valeurs changeantes dans une cellule avec un code VBA

Le code VBA ci-dessous peut vous aider à enregistrer chaque valeur changeante dans une cellule dans Excel. Veuillez procéder comme suit.

1. Dans la feuille de calcul contenant la cellule où vous souhaitez enregistrer les valeurs changeantes, faites un clic droit sur l'onglet de la feuille, puis cliquez sur Affichage du code dans le menu contextuel. Voir capture d'écran :

2. Ensuite, la fenêtre Microsoft Visual Basic pour Applications s'ouvre, veuillez copier le code VBA ci-dessous dans la fenêtre Code.

Code VBA : enregistrer les valeurs changeantes dans une cellule

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

Remarques : Dans le code, C2 est la cellule dont vous souhaitez enregistrer toutes les valeurs changeantes. D2 est la cellule où vous placerez la première valeur changeante de C2.

3. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.

Dès maintenant, chaque fois que vous modifiez les valeurs dans la cellule C2, les valeurs précédentes seront enregistrées dans D2 et les cellules situées en dessous.