Bonjour,
Je suis nouveau et je suis à mes débuts à m'amuser avec VBA d'Excel.
Puis-je me permettre de demander votre aide sur ce code?

Je me crée une date sur toutes nouvelles entrées sur la ligne et j'aimerais que ma date de modification continue de changer... Mais ça s'arrête!!

J'ai cherché, mais ne vois pas!

Merci à l'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub Worksheet_Change(ByVal Target As Range)
 
    'Check if target cells are empty, new data
    If Target.Column = 7 And Cells(Target.Row, 8) = "" Then
 
    'Disable events
    Application.EnableEvents = False
 
    'Insert current date into column 1
    Cells(Target.Row, 8) = Format(Date + Time, "yyyy-mm-dd hh:mm:ss")
 
    'Enable events
    Application.EnableEvents = True
 
 
 
 
    'Check if target cells are full, changed data
    ElseIf Cells(Target.Row, 8) <> "" Then
 
    'Disable events
    Application.EnableEvents = False
 
    'Insert current date into column 1
    Cells(Target.Row, 9) = Format(Now, "yyyy-mm-dd hh:mm:ss")
 
    'Enable events
    Application.EnableEvents = True
 
'Check if target cells are full, changed data
    ElseIf Cells(Target.Row, 8) <> "" Then
 
    'Disable events
    Application.EnableEvents = False
 
    'Insert current date into column 1
    Cells(Target.Row, 9) = Format(Now, "yyyy-mm-dd hh:mm:ss")
 
    'Enable events
    Application.EnableEvents = True
 
 
Else
 
'Check if target cells are full, changed data
    If Cells(Target.Row, 9) <> "" Then
 
    'Disable events
    Application.EnableEvents = False
 
    'Insert current date into column 1
    Cells(Target.Row, 9) = Format(Now, "yyyy-mm-dd hh:mm:ss")
 
    'Enable events
    Application.EnableEvents = True
 
End If
 
End If
 
End Sub