Macro Date et User Automatique

Bonjour,

J'ai un fichier dans lequel plusieurs utilisateur entrent des données.

Ils renseignent les colonnes A et B.

Je souhaiterais trouver une macro qui permettrait d'entrer dans la colonne D, la date de la saisie et dans la colonne E le nom du User qui à fait la saisie, et ceci dès que la valeur de la colone B à changé.

J'imagine qu'il faut partir sur du :

Private Sub Worksheet_Change(ByVal Target As Range)

Mais après c'est un peu trop compliqué pour moi...

Merci d'avance si vous pouver m'aider !!

PS voir le fichier joint pour exemple

Bonjour et bienvenue sur le forum ludozebest,

Tu peux essayer avec cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect([b3:b65536], Target) Is Nothing Then
        With Target
            .Offset(, 2) = Date
            .Offset(, 3) = Environ("username")
        End With
    End If
End Sub

Bonjour,

Sur certaines versions excel la fonction "environ" n'existe pas. Ci-dessous le code adapté :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Range("b3:b65536"), Target) Is Nothing Then
With Target
    .Offset(0, 2) = Date
    .Offset(0, 3) = Application.UserName
End With
End If
End Sub

Amicalement

Dan

Merci à tt les deux !!

C'est exactement ce qu'il me fallait !!