Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Traceur de modif

Traceur de modif

2 réponses
Avatar
mik
Bonjour,

je chercherais à tracer toutes les modifs apportés sur un fichier excel (via
le user réseau).
Est-ce que quelqu'un aurait déjà planché sur ce genre de problème? Par quel
bout le prendre?

Merci de votre aide,
mik
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
David
Bonjour Mik,

Un début de solution :

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


Copie les modifs des feuilles dans la feuille "Espion".

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.


"mik" a écrit dans le message de news:

Bonjour,

je chercherais à tracer toutes les modifs apportés sur un fichier excel
(via
le user réseau).
Est-ce que quelqu'un aurait déjà planché sur ce genre de problème? Par
quel
bout le prendre?

Merci de votre aide,
mik


Avatar
mik
Il se passe rien du tout... Il y un truc qui m'échappe dans le code

"David" wrote:

Bonjour Mik,

Un début de solution :

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


Copie les modifs des feuilles dans la feuille "Espion".

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.


"mik" a écrit dans le message de news:

> Bonjour,
>
> je chercherais à tracer toutes les modifs apportés sur un fichier excel
> (via
> le user réseau).
> Est-ce que quelqu'un aurait déjà planché sur ce genre de problème? Par
> quel
> bout le prendre?
>
> Merci de votre aide,
> mik


.