XL 2013 Date de la modification sur une ligne excel

Catoux

XLDnaute Nouveau
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

XLDnaute Accro
Bonjour
A mettre dans le Thisworkbook
VB:
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
 

M12

XLDnaute Accro
Re,

Modifie le nom des feuille suivant ton classeur (Accueil & Archives)
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390