Comment compter le nombre de fois où une cellule est modifiée dans Excel ?
Pour compter le nombre de fois qu'une cellule spécifiée est modifiée dans Excel, les codes VBA fournis dans cet article peuvent vous aider.
Compter le nombre de fois où une cellule est modifiée avec un code VBA
Compter le nombre de fois où une cellule est modifiée avec un code VBA
Les codes VBA suivants peuvent vous aider à compter le nombre de fois qu'une cellule spécifiée est modifiée dans Excel.
1. Dans la feuille de calcul qui contient une ou plusieurs cellules pour lesquelles vous devez calculer le total des modifications, 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. Dans la fenêtre Microsoft Visual Basic for Applications qui s'ouvre, copiez et collez l'un des codes VBA suivants dans la fenêtre Code en fonction de vos besoins.
Code VBA 1 : Suivi des modifications d'une seule cellule
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End SubRemarque : Dans le code, B9 est la cellule dont vous devez compter les modifications, et C9 est la cellule où afficher le résultat du comptage. Veuillez les modifier selon vos besoins.
Code VBA 2 : Suivi des modifications de plusieurs cellules dans une colonne
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End SubRemarque : Dans cette ligne "Set xRRg = xCell.Offset(0, 1)", le chiffre 1 représente le nombre de colonnes à décaler vers la droite par rapport à la référence de départ (ici la référence de départ est la colonne B, et le comptage que vous souhaitez obtenir est dans la colonne C qui se trouve à côté de la colonne B). Si vous devez afficher les résultats dans la colonne S, changez le chiffre 1 en 10.
Dès maintenant, lorsque la cellule B9 ou n'importe quelle cellule dans la plage B9:B1000 est modifiée, le nombre total de modifications sera cumulé et automatiquement rempli dans la cellule spécifiée.
Découvrez la magie d'Excel avec Kutools AI
- Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
- Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
- Codage VBA : Écrivez et implémentez du code VBA sans effort.
- Interprétation des formules : Comprenez facilement des formules complexes.
- Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
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