XL 2013 Date de la modification sur une ligne excel

[Catoux]

Bonjour,

Je n'y connais rien en VBA mais j'ai tenter d'y ajouter le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Then Cells(Target.Row, "B") = Now()
End Sub

J'ai 14 feuilles contenant 1 tableau chaque. Je veux que chaque fois qu'une modification se fait sur une ligne d'une feuille, la date du jour apparait dans la colonne B de la ligne modifiée.

J'ai ajouter ce code pour chacune des feuilles mais Excel plante. Il se ferme sans enregistrer 1 fois sur 3.

Pourquoi ce bug?
Merci!

 

[M12]

Bonjour
A mettre dans le Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C1:L50")) Is Nothing Then 'plage à definir
      If Target.Row > 1 Then Cells(Target.Row, "B") = Now()
    End If
End Sub

 

[Catoux]

Super ça fonctionne!!! Il y a seulement 2 feuilles sur lesquels ça ne doit pas s'appliquer,
savez-vous comment faire pour ne pas que ça s'applique à ceux-ci?

Merci!

 

[M12]

Re,

Modifie le nom des feuille suivant ton classeur (Accueil & Archives)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C1:L50")) Is Nothing Then 'plage à definir
      If Sh.Name <> "Accueil" And Sh.Name <> "Archives" Then
        If Target.Row > 1 Then Cells(Target.Row, "B") = Now()
      End If
    End If
End Sub