Modification ligne / sélection multi lignes

Bonjour,

J'ai mis en place une macro sur un tableau excel qui permet d'ajouter en colonne AL et AM la date et l'heure de la modification de la ligne correspondante.

Je rencontre 2 problèmes que je n'arrive pas à corriger :

1. Lorsque je sélectionne plusieurs lignes pour les coller ailleurs, seule la cellule sélectionnée pour le collage est considérée comme modifiée. Idem si je supprime plusieurs lignes d'un coup en sélectionnant une zone comprenant différentes lignes.

2. Si je modifie ma ligne 1 (qui comprend mes titres) ca me supprime mon titre en AL et AM pour mettre la date et l'heure.

J'ai tenté un "si ligne 1 alors exit sub" mais j'ai du me tromper car ca ne fonctionne pas.

S'il est possible de m'aider sur ces 2 sujets, ce serait top

Voici le code utilisé :

Private Sub Worksheet_Change(ByVal sel As Range)
Application.EnableEvents = False
Cells(sel.Row, "AL").Value = Date
Cells(sel.Row, "AM").Value = Time
Application.EnableEvents = True
End Sub

Merci par avance,

Excellente journée,

Loic

Bonjour,

Un essai :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For Each sel In Target
    If sel.Row > 1 Then
        Cells(sel.Row, "AL").Value = Date
        Cells(sel.Row, "AM").Value = Time
    End If
Next sel
Application.EnableEvents = True
End Sub

Bonjour,

Merci pour ce retour très rapide.

Le problème est corrigé ! Top !

Merci encore,

Bonne journée,

Loic

Merci du retour et pour la validation !

Bonne journée à toi aussi.