traçage de modification dans .xls

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" <jeanpaulbr...@hotmail.com> wrote:

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

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" <boisgontier@hotmail.com> a écrit dans le message de news:
4e1b2a9b-bcd0-40ca-98d5-fa171484e448@60g2000hsy.googlegroups.com...
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" <jeanpaulbr...@hotmail.com> wrote:

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

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" <jeanpaulbr...@hotmail.com> wrote:

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" <boisgont...@hotmail.com> a écrit dans le message de news:
4e1b2a9b-bcd0-40ca-98d5-fa171484e...@60g2000hsy.googlegroups.com...
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" <jeanpaulbr...@hotmail.com> wrote:

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 -

Merci infiniment.
Je pense que c'est bien ce que je recherche.

JP


"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
58ad2cf0-3b36-41e8-9e61-d1940d46192c@e10g2000prf.googlegroups.com...
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" <jeanpaulbr...@hotmail.com> wrote:

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" <boisgont...@hotmail.com> a écrit dans le message de news:
4e1b2a9b-bcd0-40ca-98d5-fa171484e...@60g2000hsy.googlegroups.com...
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" <jeanpaulbr...@hotmail.com> wrote:

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 -