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.
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 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
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !