Comment compter le nombre de fois qu'une cellule est changé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 qu'une cellule est modifiée avec le code VBA

Compter le nombre de fois qu'une cellule est modifiée avec le 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 une feuille de calcul contenant une ou plusieurs cellules pour lesquelles vous devez calculer le changement total, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur Voir le code dans le menu contextuel. Voir la capture d'écran:

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, copiez et collez l'un des codes VBA suivants dans la Code fenêtre selon vos besoins.

Code VBA 1 : suivre les modifications apportées à 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

Notes: Dans le code, B9 est la cellule dont vous avez besoin pour compter ses modifications et C9 est la cellule pour renseigner le résultat du comptage. Veuillez les changer selon vos besoins.

Code VBA 2 : suivre les modifications apportées à 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

Notes: Dans cette ligne "Définir xRRg = xCell.Offset(0, 1)", le nombre 1 représente le nombre de colonnes à décaler à droite de la référence de départ (ici la référence de départ est la colonne B, et le nombre que vous souhaitez renvoyer est dans la colonne C qui se situe à côté de la colonne B). Si vous avez besoin de sortir les résultats dans la colonne S, changez le nombre 1 à 10.

À partir de maintenant, lorsque la cellule B9 ou n'importe quelle cellule de la plage B9: B1000 change, le nombre total de modifications sera superposé et automatiquement rempli dans la cellule spécifiée.