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:

Macro: MàJ de date de modification de ligne limitée à qlq lignes
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

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 ! :)

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters