Macro: MàJ de date de modification de ligne limitée à qlq lignes [Résolu/Fermé]

Signaler
Messages postés
79
Date d'inscription
jeudi 9 mars 2017
Statut
Membre
Dernière intervention
8 août 2017
-
Messages postés
79
Date d'inscription
jeudi 9 mars 2017
Statut
Membre
Dernière intervention
8 août 2017
-
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

1 réponse

Messages postés
15729
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 avril 2021
1 481
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
79
Date d'inscription
jeudi 9 mars 2017
Statut
Membre
Dernière intervention
8 août 2017

Merci bcp, cela fonctionne ! :)