Suivi de modifications sur Excel 2010 - code VBA
Vero3646
Messages postés
6
Statut
Membre
-
Vero3646 Messages postés 6 Statut Membre -
Vero3646 Messages postés 6 Statut Membre -
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
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:
- Suivi de modifications sur Excel 2010 - code VBA
- Suivi des modifications word - Guide
- Code ascii - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
2 réponses
Salut,
Tu peux essayer quelque chose comme ça :
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
Et si tu veux date et heure met Now à la place de Date
eric