Date et heure

Version imprimable

26/10/2012, 18h58
micmat134

Date et heure

Bonjour,

J'aimerais faire apparaitre dans une feuille distincte, la date et l'heure de la dernière modification de plusieurs feuilles différentes. J'ai bien essayé des formules mais il y a un problème de syncronisation lorsque les modif sur plusieurs feuilles interviennent dans la même minute cela me mets la même heure minute seconde sur l'ensemble des feuilles.

Merci de vos conseil.

heu

bonjour
si tu a reussi a trouver ta formule date heure

place la dans
juste un exemple comme ca
dans la colonne a il s'inscrira toutes les fois que tu modifira un sheetsdifferent du premier sheets le nom du sheets la date et l'heure avec les seconde
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If activesheets .name<> sheets(1).name Then Set cel = Sheets(1).Range("a" & Sheets(1).Range("a" & Rows.Count).End(xlUp).Row) + 1 cel = "modification dans le sheets" & activesheet.Name & " le :" & Date & "à " & Format(Date, "hh:nn:ss") end if End Sub
au plaisir

Bonjour,

Une adaptation du code proposé par Patrick

Code:

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cel As Range
    If Sh.Name <> Sheets(1).Name Then
        Set Cel = Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Cel = "modification dans la feuille """ & ActiveSheet.Name & """ le " & DateValue(Now) & " à " & _
        TimeValue(Now)
        Set Cel = Nothing
    End If
End Sub

Cordialement.

26/10/2012, 20h47
patricktoulon

re

salut gFZT82 sa fesait longtemps

tu chipote un peu la non :mouarf::mouarf::mouarf:

au plaisir

Salut Patrick,

Je tiens à te rassurer, loin de moi l’idée de chipoter pour embêter mes camarades de jeu ;).
J’ai simplement testé ton code et comme je n’obtenais pas le résultat attendu, j’ai cherché à comprendre.
Ce qui me fait bien marrer, c’est que dans la foulée je viens de trouver matière à chipoter sur mon code. Je rajouterais bien un petit EnableEvents, histoire d’éviter des A/R intempestifs.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Cel As Range Application.EnableEvents = False If Sh.Name <> Sheets(1).Name Then Set Cel = Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0) Cel = "modification dans la feuille """ & ActiveSheet.Name & """ le " & DateValue(Now) & " à " & _ TimeValue(Now) Set Cel = Nothing End If Application.EnableEvents = True End Sub
Au plaisir.
Cordialement.

27/10/2012, 12h55
patricktoulon

re

salut gFZT82

j'adopte plus rapide :ccool: