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 Sub

Remarque : 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 Sub

Remarque : 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.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !