[Excel] comment indiquer une date de saisie ?

Merci
C'est nickel

J'ai juste galérer parce que au debut je l'avais copier dans le modele

Bonjour,

Voila 2 macros (à copier dans la feuille concernée) qui doivent en principe répondre à ton problème :

Dim V_ColorCell As Long ' Variable pour mémoriser le code couleur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Mémorisation de la couleur lors de la sélection de la celleule

V_ColorCell = ActiveCell.Interior.Color

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
' Comparaison après modification

If Target.Interior.Color <> V_ColorCell Then
Target.AddComment "Cellule modifiée le " + CStr(Date)
End If

End Sub

Attention : Cela ne marche que dans le cas d'un copier/coller car l'événement "Worksheet_Change" n'est pas déclanché si on ne modifie que la couleur de fond de la cellule. Dans ce cas je ne sais pas faire.

Cordialement

Sergio

Bonjour,

Je viens en effet de constater que lorsque on supprime une ligne, Excel considère que la cellule modifiée appartient à la colonne 1 et cela quelle que soit la position du curseur !

Avec l'exemple que j'ai proposé lorsque on supprime une ligne, la date de la ligne qui suit est donc modifiée à tort (uniquement la ligne qui suit et pas toutes les lignes en dessous).

Par contre si j'inverse les colonnes : saisie en col 2 et affichage date en col 1, plus de problème.

Je sais, ce n'est pas une vraiment une solution mais plutôt un contournement du problème mais je ne vois pas comment faire autrement.

Cordialement

Sergio