Date sur excel
Résolu
alff01
Messages postés
3
Statut
Membre
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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
-
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 -
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 -
-
de rien
peux tu mettre le pb à résolu (en haut de ton premier message)
bonne fin de journée
