date de saisie

If Target > "" Then

If Target [SIZE=3][COLOR=darkslateblue][B]<>[/B][/COLOR][/SIZE] "" Then

[CODE]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column < 18 And Target.Column > 140 Then Exit Sub
    If Target > "" Then
        Cells(Target.Row, 5) = Now()
    Else
        Cells(Target.Row, 5) = ""
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Long
    If Not Intersect(Target, Range("$R$21: $EJ$2021")) Is Nothing Then
        x = Target.Row
        If Target <> "" Then
            Cells(x, 141) = Now()
        End If
    End If
End Sub

 Date de saisie en commentaire


La date de saisie de chaque cellule est placée dans le commentaire de celle ci.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 And Target.Count = 1 Then ' colonne 3 seulement
    If Target.Comment Is Nothing Then Target.AddComment
    Target.Comment.Text Text:=Format(Date, "dd/mm/yy")
    Target.Comment.Shape.TextFrame.AutoSize = True
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 3 And Target.Count = 1 Then           ' colonne 3 seulement
    If Target.NoteText = "" Then Target.AddComment        ' Création commentaire
    
         Target.Comment.Text Text:=Target.Comment.Text & _
         Environ("UserName") & _            
 " Le " & Now & vbLf   
'Username Nom de L'user
'Now Format de Date et Heure

    Target.Comment.Visible = True
    Target.Comment.Shape.Select
    Selection.AutoSize = True
    Target.Comment.Visible = False
  End If
  Application.EnableEvents = True
End Sub

Dim lg
lg = Len(Target.Comment.Text)
     With Target.Comment.Shape.TextFrame
        .Characters(Start:=1, Length:=lg).Font.Name = "Verdana"
        .Characters(Start:=1, Length:=lg).Font.Size = 8
        .Characters(Start:=1, Length:=lg).Font.Bold = True
        .Characters(Start:=1, Length:=lg).Font.Italic = True
        .Characters(Start:=1, Length:=lg).Font.ColorIndex = 3

        .Characters(Start:=lg, Length:=99).Font.Bold = False
        .Characters(Start:=lg, Length:=99).Font.Italic = False
        .Characters(Start:=lg, Length:=99).Font.ColorIndex = 1
     End With

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lg
  Application.EnableEvents = False
  'If Target.Column = 3 And Target.Count = 1 Then' colonne 3 seulement
    If Target.NoteText = "" Then
    Target.AddComment ' Création commentaire
   ' Target.Comment.Text Text:=Target.Comment.Text &
       'Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
        ' " Le " & Now & vbLf
       ' Target.Comment.Text Text:=Target.Comment.Text &
        Target.Comment.Text Text:=("Modifié par") & " " & Environ("UserName") & _
         " Le " & Format(Now, "dddd dd mmmm yyyy  hh:mm") & vbLf
  lg = Len(Target.Comment.Text)
     With Target.Comment.Shape.TextFrame
        .Characters(Start:=1, Length:=lg).Font.Name = "Verdana"
        .Characters(Start:=1, Length:=lg).Font.Size = 8
        .Characters(Start:=1, Length:=lg).Font.Bold = True
        .Characters(Start:=1, Length:=lg).Font.Italic = True
        .Characters(Start:=1, Length:=lg).Font.ColorIndex = 3

        .Characters(Start:=lg, Length:=99).Font.Bold = False
        .Characters(Start:=lg, Length:=99).Font.Italic = False
        .Characters(Start:=lg, Length:=99).Font.ColorIndex = 1
     End With
    Target.Comment.Visible = True
    Target.Comment.Shape.Select
    Selection.AutoSize = True
    Target.Comment.Visible = False
  
  End If
  Application.EnableEvents = True
End Sub

If Not Intersect(Target, Range("$R$21: $EJ$2021")) Is Nothing Then

If Target.NoteText = "" Then