Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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(3 4) & ActiveCell.Value & Chr(34) End Sub
JB http://boisgontierjacques.free.fr
On 3 mar, 15:09, "Jean-Paul Brine" 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
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.
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" 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
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" a écrit dans le message de news:
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" 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.
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" a écrit dans le message de news:
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" 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
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" 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" a écrit dans le message de news:
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" 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 -
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.
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" 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" a écrit dans le message de news:
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" 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 -
Jean-Paul Brine
Merci infiniment. Je pense que c'est bien ce que je recherche.
JP
"JB" a écrit dans le message de news:
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" 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.
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" 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 -
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,
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.
Merci infiniment. Je pense que c'est bien ce que je recherche.
JP
"JB" a écrit dans le message de news:
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" 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.
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" 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.