traçage de modification dans .xls

Le
Jean-Paul Brine
Bonjour à tous.

Est-il possible de voir quelles sont les modifications apportées à un
fichier Excel ainsi que les auteurs de celles-ci?
Merci de votre aide.

JP
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5178271
Bonjour,



http://boisgontierjacques.free.fr/pages_site/evenements.htm#MemoHisto
http://boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModifiees.x ls

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name <> "Espion" Then
Application.EnableEvents = False
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Sh.Name
Sheets("espion").Cells(temp, 2) = Target.Address
Sheets("espion").Cells(temp, 3) = Now
Sheets("espion").Cells(temp, 4) = [mémo]
Sheets("espion").Cells(temp, 5) = Target
Sheets("espion").Cells(temp, 6) = Environ("username")
Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" &
Chr(34) & Target.Value & Chr(34)
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(3 4)
& ActiveCell.Value & Chr(34)
End Sub

JB
http://boisgontierjacques.free.fr


On 3 mar, 15:09, "Jean-Paul Brine"
Bonjour à tous.

Est-il possible de voir quelles sont les modifications apportées à un
fichier Excel ainsi que les auteurs de celles-ci?
Merci de votre aide.

JP


Jean-Paul Brine
Le #5178251
Cher JB,

La solution idéale pour moi serait celle que j'ai trouvé sur excelabo et
dont vous êtes l'auteur "jb-historiquemodifications".
Cependant je souhaite l'étendre à plusieurs colonnes. Je n'y parviens pas.

Merci de votre aide.

JP


"JB"
Bonjour,



http://boisgontierjacques.free.fr/pages_site/evenements.htm#MemoHisto
http://boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModifiees.x
ls

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name <> "Espion" Then
Application.EnableEvents = False
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Sh.Name
Sheets("espion").Cells(temp, 2) = Target.Address
Sheets("espion").Cells(temp, 3) = Now
Sheets("espion").Cells(temp, 4) = [mémo]
Sheets("espion").Cells(temp, 5) = Target
Sheets("espion").Cells(temp, 6) = Environ("username")
Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" &
Chr(34) & Target.Value & Chr(34)
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& ActiveCell.Value & Chr(34)
End Sub

JB
http://boisgontierjacques.free.fr


On 3 mar, 15:09, "Jean-Paul Brine"
Bonjour à tous.

Est-il possible de voir quelles sont les modifications apportées à un
fichier Excel ainsi que les auteurs de celles-ci?
Merci de votre aide.

JP


JB
Le #5178231
S'agit-il de celui ci?

Mémorise l'historique des cellules dans la zone commentaire des
cellules

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
If Target.Comment Is Nothing Then Target.AddComment '
Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 EURO") & " Modifié par:" &
Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

http://cjoint.com/?ddqy7Jshkw

JB

JB



On 3 mar, 16:00, "Jean-Paul Brine"
Cher JB,

La solution idéale pour moi serait celle que j'ai trouvé sur excelabo et
dont vous êtes l'auteur "jb-historiquemodifications".
Cependant je souhaite l'étendre à plusieurs colonnes. Je n'y parviens pas.

Merci de votre aide.

JP

"JB"
Bonjour,

http://boisgontierjacques.free.fr/pages_site/evenements.htm#MemoHistohttp: //boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModi...
ls

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name <> "Espion" Then
Application.EnableEvents = False
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Sh.Name
Sheets("espion").Cells(temp, 2) = Target.Address
Sheets("espion").Cells(temp, 3) = Now
Sheets("espion").Cells(temp, 4) = [mémo]
Sheets("espion").Cells(temp, 5) = Target
Sheets("espion").Cells(temp, 6) = Environ("username")
Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" &
Chr(34) & Target.Value & Chr(34)
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr (34)
& ActiveCell.Value & Chr(34)
End Sub

JBhttp://boisgontierjacques.free.fr

On 3 mar, 15:09, "Jean-Paul Brine"


Bonjour à tous.

Est-il possible de voir quelles sont les modifications apportées à u n
fichier Excel ainsi que les auteurs de celles-ci?
Merci de votre aide.

JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Jean-Paul Brine
Le #5178221
Merci infiniment.
Je pense que c'est bien ce que je recherche.

JP


"JB"
S'agit-il de celui ci?

Mémorise l'historique des cellules dans la zone commentaire des
cellules

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
If Target.Comment Is Nothing Then Target.AddComment '
Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 EURO") & " Modifié par:" &
Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub

http://cjoint.com/?ddqy7Jshkw

JB

JB



On 3 mar, 16:00, "Jean-Paul Brine"
Cher JB,

La solution idéale pour moi serait celle que j'ai trouvé sur excelabo et
dont vous êtes l'auteur "jb-historiquemodifications".
Cependant je souhaite l'étendre à plusieurs colonnes. Je n'y parviens pas.

Merci de votre aide.

JP

"JB"
Bonjour,


http://boisgontierjacques.free.fr/pages_site/evenements.htm#MemoHistohttp://

boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModi...
ls

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Sh.Name <> "Espion" Then
Application.EnableEvents = False
temp = Application.CountA(Sheets("espion").Range("a:a")) + 1
Sheets("espion").Cells(temp, 1) = Sh.Name
Sheets("espion").Cells(temp, 2) = Target.Address
Sheets("espion").Cells(temp, 3) = Now
Sheets("espion").Cells(temp, 4) = [mémo]
Sheets("espion").Cells(temp, 5) = Target
Sheets("espion").Cells(temp, 6) = Environ("username")
Application.EnableEvents = True
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" &
Chr(34) & Target.Value & Chr(34)
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34)
& ActiveCell.Value & Chr(34)
End Sub

JBhttp://boisgontierjacques.free.fr

On 3 mar, 15:09, "Jean-Paul Brine"


Bonjour à tous.

Est-il possible de voir quelles sont les modifications apportées à un
fichier Excel ainsi que les auteurs de celles-ci?
Merci de votre aide.

JP- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme