suivi historique

[wachoo31]

Bonjour a toutes et tous

J'ai un fichier de suivi de matériels composé de plusieur feuilles de différente mise en page.
Je voudrais que quand je modifie une ou plusieur cellule d'une même ligne d'une feuille, celle-ci soit automatiquement copiée en entier dans une feuille d' historique de données afin de pouvoir a tout moment retroouvé l'évolution de mon matériel.

Bon dimanche a vous

 

[bertgrav]

Re : suivi historique

bonsoir,

un petit exemple que j'avais utilisé il y a quelques temps et que tu dois modifier, au moins il y a les bases....

le code est dans le thisworkbook

à chaque enregistrement, il y a une sauvegarde.
cette sauvegarde enregistre l'username + la date + les 2 cellules A2 et B2 de la feuilles Données.

à toi à changer certaines parties du code pour l'adapter à ce que tu veux

amicalement

chantal

 

[wachoo31]

Re : suivi historique

Bonjour, bertgrav, Re le forum

Merci à toi bertgrav, mais cela n'est pas mon but, je cherche plutot avec un sélectionchange...

Merci tout de même

Bonne journée

 

[_Thierry]

Re : suivi historique

Bonjour Alain, Chantal

Tu n'es pas vraiment explicit et sans autres détails, voici une double procédure à placer dans "ThisWorkBook" qui s'activera et appliquera litéralement ta phrase :

"quand je modifie une ou plusieur cellule d'une même ligne d'une feuille, celle-ci soit automatiquement copiée en entier dans une feuille d' historique"

NB nécessité d'avoir une feuille nommée "historique"

Option Explicit
Private Const HistoryWS As String = "historique"
Private WorkingRow As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
    If Sh.Name <> HistoryWS Then
        Set WorkingRow = Range(Cells(Target.Row, 1), Cells(Target.Row, 255))
    End If
    
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> HistoryWS Then
        With Worksheets(HistoryWS)
        WorkingRow.Copy .Range("A65536").End(xlUp).Offset(1, 0)
        End With
    End If
End Sub

Bon Appétit

@+Thierry
​