Date auto apres saisi dans chaque cellule

1

Bonjour,

Dans un tableau de 14 colonnes de  A à O et 1300 lignes, j'aimerais que la date soit automatique après chaque nouvelle saisi de A 1  à N 1300 dans chaque cellule de chaque la ligne de la colonne O.

J'ai utilisé ce code mais après saisi impossible de fermer la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [O3:O86]) Is Nothing Then Target(1, 1) = Now

If Not Intersect(Target, [N3:N86]) Is Nothing Then Target(1, 2) = Now

If Not Intersect(Target, [M3:M86]) Is Nothing Then Target(1, 3) = Now

If Not Intersect(Target, [L3:L86]) Is Nothing Then Target(1, 4) = Now

If Not Intersect(Target, [K3:K86]) Is Nothing Then Target(1, 5) = Now

If Not Intersect(Target, [J3:J86]) Is Nothing Then Target(1, 6) = Now

If Not Intersect(Target, [I3:I86]) Is Nothing Then Target(1, 7) = Now

If Not Intersect(Target, [H3:H86]) Is Nothing Then Target(1, 8) = Now

If Not Intersect(Target, [G3:G86]) Is Nothing Then Target(1, 9) = Now

If Not Intersect(Target, [F3:F86]) Is Nothing Then Target(1, 10) = Now

If Not Intersect(Target, [E3:E86]) Is Nothing Then Target(1, 11) = Now

If Not Intersect(Target, [D3:D86]) Is Nothing Then Target(1, 12) = Now

If Not Intersect(Target, [C3:C86]) Is Nothing Then Target(1, 13) = Now

If Not Intersect(Target, [B3:B86]) Is Nothing Then Target(1, 14) = Now

If Not Intersect(Target, [A3:A86]) Is Nothing Then Target(1, 15) = Now

End Sub


Espérant être limpide, je suis novice en la matière..

Merci  d'avance de votre aide.

Posté le 5 février, 10:56
par christophe
Répondre
1
Bonjour, Si j'ai compris Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [A1:N1300]) Is Nothing Then Cells(Target.Row, 15) = Now End Sub
Posté le 5 février, 17:02

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :