XL 2010 Fichier log

  • Initiateur de la discussion Initiateur de la discussion team18fr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

team18fr

XLDnaute Occasionnel
Bonjour,
Dans mon classeur excel j'ai mis ce code que j'ai trouvé sur un autre forum pour enregistrer les modifications de mes feuilles sur une autre feuille.
Cela marche bien mais pour commencer cela ne me donne pas l'ancienne valeur et si plusieurs cellules sont sélectionnée ça bug.
VB:
Dim PreviousValue
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Application.UserName & " a modifie la cellule " & Target.Address _
& " de " & PreviousValue & " en " & Target.Value & " a: " & Format(Time, "hh:mm:ss") & " le: " & Format(Date, "dd/mm/yy")
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub
Je met ce code dans chaque feuille que je veux contrôler.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
252
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
513
Réponses
1
Affichages
349
Réponses
4
Affichages
250
Retour