Suivre les changements dans une cellule

Bon­jour à tous,

Voici une petite macro qui pour­rait vous ren­dre de grands ser­vices.

L’ob­jec­tif est de suiv­re les mod­i­fi­ca­tions apportées dans une plage spé­ci­fique d’une feuille de cal­cul.

Ici, la cel­lule mod­i­fiée est mise en rouge et un com­men­taire avec l’his­torique des mod­i­fi­ca­tions est ajoutée.

Vous pou­vez télécharg­er le fichi­er ici :

Lien du fichi­er

Pour utilis­er le code dans vos appli­ca­tions, définis­sez une plage avec le nom “PlageA­Com­pleter”

Puis, clic droit sur la feuille, visu­alis­er le code et coller le code ci-dessous.
Le code est rel­a­tive­ment court, mais il reste encore un cer­tain nom­bre de cas non traités. Par exem­ple, on ne peut pas tra­vailler avec plusieurs cel­lules en même temps, le copi­er coller ne va pas bien fonc­tion­ner, ou encore l’ab­sence d’an­nu­la­tion.

Option Explicit
Public AncienneValeur As Variant
Public bNePasTraquerSuivi As Boolean
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
    If bNePasTraquerSuivi Then Exit Sub
    AncienneValeur = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If bNePasTraquerSuivi Or Selection.Cells.Count > 1 Then Exit Sub
    Dim strCommentText As String
    If Not Intersect(Target, Range("PlageACompleter")) Is Nothing Then
        Target.Interior.Color = RGB(255, 0, 0)
        If Not Target.Comment Is Nothing Then
            strCommentText = Target.Comment.Text
            Target.Comment.Text Text:=Date & " " & Time & " : " & CStr(AncienneValeur) & vbCrLf & strCommentText
        Else
            Target.AddComment Date & " " & Time & " : " & CStr(AncienneValeur)
        End If
    End If
End Sub

N’hésitez pas à me dire si ce code vous est utile.

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel
Pour marque-pages : permalien.

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.