Macro: MàJ de date de modification de ligne limitée à qlq lignes

Résolu/Fermé
Dianex87 Messages postés 79 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 8 août 2017 - 9 mars 2017 à 16:23
Dianex87 Messages postés 79 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 8 août 2017 - 10 mars 2017 à 10:20
Bonjour, bonjour,

Je travaille sur l’automatisation d’un fichier Excel grâce à VBA sous Excel 2010. Ce fichier compile des sujets (lignes) qui ont chacun divers critères (colonnes).

Ma problématique : j'ai créé une macro qui donne en colonne A la dernière date de mise à jour de chaque ligne/sujet. Donc à chaque fois qu'un utilisateur vient modifier une info d'une ligne (quelle que soit la cellule de la ligne), la date du jour est renseignée en colonne A de la même ligne.

Mais je n'arrive pas à limiter l'action de la macro à la ligne 3 incluse en descendant, CAD que les modifs en ligne 1 et 2 (les lignes-titres qui évoluent, projet récent) ne renseignent pas la date en colonne A. Parce qu'alors c'est le titre de ma colonne A qui est changé au profit de la date du jour...

FYI, voici le code déjà créé:

Private Sub Worksheet_Change(ByVal sel As range)
Application.EnableEvents = False
Cells(sel.Row,”A”).Value = Date
Application.EnableEvents = True
End Sub

J'espère avoir été -un peu- claire...

Meci par avance,
Dianex

A voir également:

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
9 mars 2017 à 19:00
Bonjour,

Private Sub Worksheet_Change(ByVal sel As Range)
    If sel.Row > 2 Then
        Application.EnableEvents = False
        Cells(sel.Row, "A").Value = Date
        Application.EnableEvents = True
    End If
End Sub
1
Dianex87 Messages postés 79 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 8 août 2017
10 mars 2017 à 10:20
Merci bcp, cela fonctionne ! :)
0