Discussion :

[chegerg]

Bonjour la communauté,

Est ce qu'une macro est possible de /

Savoir qui a, changé le contenu d'une cellule
Le contenu qui a été changé
Par quoi est il remplacé
La date de remplacement


J'ai trouvé quelque chose mai je n'arrive pas a l'adapter a mon fichier. Je vois le nom de la personne, l'heure mais je ne vois pas les cellules modifiées.

Merci d'avance.

[PPz78]

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

tu peux "espionner" les cellule sélectionnées
tu mémorise à la sélection et tu vérifie à la suivante.

[PPz78]

un premier exemple en deux coup de cuillère à pot :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Variable, V_ligne, V_col
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    If VarType(Variable) <> 0 Then
        If Variable <> Cells(V_ligne, V_col) Then
            MsgBox ("La cellule (l,c) : (" & V_ligne & "," & V_col & ") a été modifiée" & Chr(13) & _
                   "ancienne valeur : " & Variable & Chr(13) & _
                   "nouvelle valeur : " & Cells(V_ligne, V_col))
        End If
    End If
    'MsgBox (Target.Row & " " & Target.Column)
    Variable = Target.Value
    V_ligne = Target.Row
    V_col = Target.Column
 
End Sub

[PPz78]

un petit remords (nota remords a toujours un s ;+)), c'est mieux avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If VarType(V_ligne) <> 0 Then