Enregistrement Username à chaque modif dans chaque onglet

[nini007]

Bonour,

J'ai un code VBA pour l'enregistrement avec les initiale Windows(et non le nom utilisateur Excel) pour la modification dans chaque onglet.
Quand j'effectue une modification dans la Feuil1 par exemple, cela me met un message d'erreur:

Erreur de compilation:
Sub ou Fonction non définie

Si quelqu'un avait l'amabilité de me donner un coup de main ça serait sympa, merci d'avance.
Ci-joint un exemple.

Meilleures salutations

 

[Dranreb]

Re : Enregistrement Username à chaque modif dans chaque onglet

Bonjour.
Essayez :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Me.[D4].Value = "Modifié par: " & Application.UserName
Application.EnableEvents = True
End Sub

 

[nini007]

Re : Enregistrement Username à chaque modif dans chaque onglet

Bonjour,

Je vous remercie pour votre réponse et votre code qui fonctionne très bien, un grand bravo 😉

J'avais aussi posté la question sur un autre site au cas ou 😀

Et l'on m'a donné un code qui est très bien et qui me donne l'utilisateur comme vous, mais aussi l'utilisateur(login) et ce que je cherchais, je le met ici dessous:

A coller dans la Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim user_x As String, user_y As String

Application.EnableEvents = False

user_x = Environ("username")
user_y = Application.UserName
ActiveSheet.Range("D4").Value = "Modifié par:" & user_x
ActiveSheet.Range("F4").Value = "Modifié par:" & user_y

Application.EnableEvents = True
End Sub


Meilleures salutations