Discussion :

[micmat134]

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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

Une adaptation du code proposé par Patrick

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

salut gFZT82 sa fesait longtemps

tu chipote un peu la non

au plaisir

[gFZT82]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

salut gFZT82

j'adopte plus rapide