Excel VBA heure et le nom d'utilisateur

Le code ci-dessous détecte les données lors de la saisie dans la colonne A et insère automatiquement l'utilisateur actuel dans la cellule de droite. Je voudrais aussi ce code pour ajouter un horodatage ainsi. J'ai besoin d'enregistrer le nom d'utilisateur et le temps. Toutes les suggestions? 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rCell As Range
    Dim rChange As Range

    On Error GoTo ErrHandler
    Set rChange = Intersect(Target, Range("A:A"))
    If Not rChange Is Nothing Then
        Application.EnableEvents = False
        For Each rCell In rChange
            If rCell > "" Then
                With rCell.Offset(0, 1)
                    .Value = UserName()

                End With

            Else
                rCell.Offset(0, 1).Clear
            End If
        Next
    End If

ExitHandler:
    Set rCell = Nothing
    Set rChange = Nothing
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

Public Function UserName()
    UserName = Environ$("UserName")
End Function
InformationsquelleAutor user2591771 | 2013-07-17
  1. 1

    Vous pouvez simplement utiliser quelque chose comme date & " " & time. Ceci affichera la date et l'heure concaténées comme suit:

    17/07/2013 11:49:39 PM

    Voici votre code avec la date et l'heure de la valeur ajoutée dans la colonne suivante:

    Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim rCell As Range Dim rChange As Range

On Error GoTo ErrHandler
Set rChange = Intersect(Target, Range("A:A"))
If Not rChange Is Nothing Then
    Application.EnableEvents = False
    For Each rCell In rChange
        If rCell > "" Then
            rCell.Offset(0, 1).Value = UserName()   
            rCell.Offset(0, 2).Value = date() & " " & time()   <-- added line          
        Else
            rCell.Offset(0, 1).Clear
        End If
    Next
End If
    • Merci beaucoup! Fonctionne parfaitement!
    • Les jours heureux! Veuillez cocher la réponse si la question est fermé 🙂
    • rCell.Offset(0,2).Value = Now() fonctionne également.
    InformationsquelleAutor Katstevens