Suivi de modifications sur Excel 2010 - code VBA

Question

Bonjour,

Je viens vers vous car je suis une débutante en VBA.
J'utilise Excel 2000 (et oui....) et je veux faire une feuille "log" qui fasse le suivi de toutes les modifications de ma feuille de données principales.

Voici le code que j'ai fait et qui semble marcher :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.value <> PreniousValue Then
Sheets("log").Cells(Rows.Count,1).End(xlUp).Offset(1,0).Value = Application Username & "changed cell" & Target.Address & " from" & PreviousValue & " to "  & Target.Value
End if
End Sub

Mais j'aimerais l'améliorer.
Je voudrais que la date de la modification soit inscrite sur cette feuille log. Est-ce possible ? Avec quelle fonction ?
Le Username me sort le propriétaire d'excel donc moi. Est-il possible de mettre à la place le Username du compte Windows utilisé ? 
Et comment insérer ces deux nouveautés dans mon programme ?

Merci beaucoup,

Véro

ozone_ · Answer

Salut,
Tu peux essayer quelque chose comme ça :
 
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> PreniousValue Then
        Sheets("log").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Environ("Username") & "changed cell" & _
        Target.Address & " from" & PreviousValue & " to " & Target.Value & " ( " & Date & ") "
    End If
End Sub

Vero3646 · Answer

merci beaucoup, je teste ça demain au boulot ;)

Suivi de modifications sur Excel 2010 - code VBA

2 réponses

Newsletters