mise a jour automatique de date de dernière modification

[gaihdriah]

Bonjour a tous,

j'ai un document dans lequel on ajoute des ligne par fret recu (une ligne = 1 fret)
chaque ligne permet (grace a une liste deroulante) de suivre l'état d'un fret.

je souhaiterai que la date de dernière modification soit automatique implementé. mais cettedate dois etre en relation avec la ligne et non pas avec la fuille ou le classeur tout entier.

pour plus de détail, vous aurez acces a la feuille ainsi qu'a un message d'erreur quand j'essaye de copier une macro.

merci de votre compréhension et réactivité.

 

[tototiti2008]

Re : mise a jour automatique de date de dernière modification

Bonjour gaihdriah,

Workbook_BeforeSave est une procédure évènementielle
Elle se lance automatiquement avant que l'utilisateur ait sauvegardé le classeur (Before Save)
Tu ne peux en avoir qu'une seul par classeur, et de toute façon tu n'as pas le droit d'avoir plusieurs macros avec le même nom

Efface tout ce que tu as dans Thisworkbook et met ce code dans Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column < 5 Then
            On Error Resume Next
            Application.EnableEvents = False
            Range("D" & Target.Row) = Date
            Application.EnableEvents = True
            On Error GoTo 0
        End If
    End If
End Sub

 

[gaihdriah]

Re : mise a jour automatique de date de dernière modification

salut,

merci a toi pour ta macro, mais visiblement elle ne fonctionne pas.
en effet, lorsque j'ajoute une ligne, au dessus de celle créé (comme si un nouveau fret arrivais) il n'y a pas de mise a jour de la date qui s'effectue.
désolé de ne pas vraiment trop comprendre.

merci de ta compréhension.

 

[gaihdriah]

Re : mise a jour automatique de date de dernière modification

non mais oublie ce que je viens de dire. je ne l'avais pas collé dans feuil1, mais dans thisworkbook.

ca marche au poil.
dernier test demain, lorsque la date aura changé.
merci a toi.