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 SubRemarques : 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
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels