Discussion :

[survi45]

Bonjour à tous

J'ai une formule qui me permet de donner la date et l'heure lors d'une modification dans une partie de colonne(cellule G11 à G1319 daté dans colonne H), cela fonctionne.
Ce que j'aimerai c'est que cette formule puisse aussi être appliquée à une autre partie de colonne (cellule I11 à I1319 avec la date dans la colonne J)

Dans le code ci dessous j'ai juste modifié la formule mais je ne connais pas la syntaxe pour que la formule fonctionne.

J'espère avoir été clair et merci d'avance pour votre aide.

Cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
If Intersect(Target, Range("G11:G1319")) Is Nothing Or Target.Count > 1 Then: Exit Sub
 
Cells(Target.Row, 8) = Format(Date, "dd/mm/yyyy") & Format(Time, "  hh:mm:ss")
 
 
If Intersect(Target, Range("I11:I1319")) Is Nothing Or Target.Count > 1 Then: Exit Sub
 
Cells(Target.Row, 10) = Format(Date, "dd/mm/yyyy") & Format(Time, "  hh:mm:ss")
 
End Sub

[mercatog]

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Union(Range("G11:G1319"), Range("I11:I1319"))) Is Nothing Then
    With Target(1, 1)
        Application.EnableEvents = False
        If .Value <> "" Then
            .Offset(0, 1).Value = Now
            .Offset(0, 1).NumberFormat = "dd/mm/yyyy hh:mm:ss"
        Else
            .Offset(0, 1).ClearContents
        End If
        Application.EnableEvents = True
    End With
End If
End Sub

[survi45]

Impec merci beaucoup pour ta réponse et ta rapidité.