Date sur excel
Résolu
Bonjour,
Sous excel 2003 je voudrais que chaque fois que quelqu'un modifie une donnée la date s'inscrive sur la même ligne en colonne N. Les plages de données sont sur les colonnes G à k et ligne 6 à 63.
j'avais trouvé une macro evenementiel mais elle met la date dès qu'on modifie n'importe que cellule:
Private Sub Worksheet_Change(ByVal sel As Range)
Application.EnableEvents = False
Cells(sel.Row, "N").Value = Date + Time
Application.EnableEvents = True
End Sub
quelqu'un peut m'aider ?
Sous excel 2003 je voudrais que chaque fois que quelqu'un modifie une donnée la date s'inscrive sur la même ligne en colonne N. Les plages de données sont sur les colonnes G à k et ligne 6 à 63.
j'avais trouvé une macro evenementiel mais elle met la date dès qu'on modifie n'importe que cellule:
Private Sub Worksheet_Change(ByVal sel As Range)
Application.EnableEvents = False
Cells(sel.Row, "N").Value = Date + Time
Application.EnableEvents = True
End Sub
quelqu'un peut m'aider ?
4 réponses
-
de rien
peux tu mettre le pb à résolu (en haut de ton premier message)
bonne fin de journée -
merci pour votre aide !
-
bonjour
Const plage = "G6:K63" Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(plage)) Is Nothing Then Application.EnableEvents = False Cells(Target.Row, "N").Value = Date + Time Application.EnableEvents = True End If End Sub
devrait aller
bonne suite -
Private Sub Worksheet_Change(ByVal sel As Range)
'Application.EnableEvents = False
'g k 6 63
a = 1
If ActiveCell.Column = 7 Or ActiveCell.Column = 8 Or ActiveCell.Column = 9 Or ActiveCell.Column = 10 Or ActiveCell.Column = 11 Then
If ActiveCell.Row > 5 And ActiveCell < 64 Then
Cells(sel.Row, "N").Value = Date + Time
End If
End If
'Application.EnableEvents = True
End Sub
