Identifier des changements dans une feuille excel

[fred2949]

Bonjour,

je souhaiterais savoir si l'on peut réaliser la manipulation suivante :

Si l'on a une feuille de classeur excel-il possible de faire en sorte que, si l'on effectue un changement dans la feuille, les changements soient retranscrits dans une autre feuille ?

Merci d'avance de votre réponse

 

[Spitnolan08]

Re : Identifier des changements dans une feuille excel

Bonjour,

Oui avec une macro évènementielle du type :

Private Sub Worksheet_Change(ByVal Target as Range)     
Target.Font.ColorIndex = 5 
End Sub

à adapter à tes besoins qui nous sont inconnus...

Cordialement

 

[BOISGONTIER]

Re : Identifier des changements dans une feuille excel

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

JB
Formation Excel VBA JB

 

[abcd]

Re : Identifier des changements dans une feuille excel

Bonjour,

Menu Outils / Suivi des modifications / ne suffit-il pas ?
C'est pas sur une autre feuille, mais c'est bien pratique.

abcd

 

[dixit]

Re : Identifier des changements dans une feuille excel

bonsoir,
voici un classeur réalisé il y a quelque temps pour une question similaire.
bye

 

[fred2949]

Re : Identifier des changements dans une feuille excel

Merci à vous 🙂