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 
Posté le