date sur excel Résolu/Fermé

Question

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 ?

eljojo_e · Answer

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

ccm81 · Answer

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

alff01 · Answer

merci pour votre aide !

ccm81 · Answer

de rien

peux tu mettre le pb à résolu (en haut de ton premier message)

bonne fin de journée

Date sur excel

4 réponses

Discussions similaires

Newsletters