Sujet Précédent Sujet Suivant

Suivi de modifications sur Excel 2010 - code VBA

Fermé
Vero3646 Messages postés 6 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 2 juin 2015 - 26 mai 2015 à 17:47
Vero3646 Messages postés 6 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 2 juin 2015 - 26 mai 2015 à 19:07
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
A voir également:

2 réponses

Réponse 1 / 2
ozone_ Messages postés 1518 Date d'inscription lundi 13 juillet 2009 Statut Membre Dernière intervention 2 juin 2023 478
26 mai 2015 à 18:24
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

1
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
26 mai 2015 à 18:46
Bonjour,

Et si tu veux date et heure met Now à la place de Date
eric
0
Réponse 2 / 2
Vero3646 Messages postés 6 Date d'inscription mardi 19 mai 2015 Statut Membre Dernière intervention 2 juin 2015
26 mai 2015 à 19:07
merci beaucoup, je teste ça demain au boulot ;)
0