Date sur excel

Résolu
alff01 Messages postés 3 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 ?

4 réponses

Réponse 1 / 4
eljojo_e Messages postés 1255 Statut Membre 155
 
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
0
Réponse 2 / 4
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
0
Réponse 3 / 4
alff01 Messages postés 3 Statut Membre
 
merci pour votre aide !
0
Réponse 4 / 4
ccm81 Messages postés 11033 Statut Membre 2 433
 
de rien

peux tu mettre le pb à résolu (en haut de ton premier message)

bonne fin de journée
0