Insérer nom utilisateur si saisie dans une ligne

[lmylvc]

Bonjour

je suis à la recherche d'un code permettant de saisir automatiquement dans une cellule, sur la colonne B
de la ligne active, le nom de l'utilisateur quand une saisie est réalisée dans la ligne active de la colonne A
Quelqu'un sait-il comment s'y prendre ??

J'ai beau me débrouiller un peu en VBA mais là ça me dépasse!

Merci d'avance

Vincent 😉

 

[Dull]

Re : Insérer nom utilisateur si saisie dans une ligne

Salut lmylvc, le Forum

Pas sur d'avoir compris la question et la logique 😱 mais essaye ce bout de code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Range("B" & Target.Row).Value = Environ("UserName")
End Sub

Bonne Journée

 

[JBOBO]

Re : Insérer nom utilisateur si saisie dans une ligne

Bonjour,

Je crois que la réponse est quasiment donnée dans le post ici :https://www.excel-downloads.com/threads/recuperer-le-nom-dutilisateur-a-laide-dun-formule.181076/
En utilisant le nom defini "test", tu peux l'inclure dans une formule du genre : =si(A1="";"";test)

 

[lmylvc]

Re : Insérer nom utilisateur si saisie dans une ligne

Merci les gars
je venais également de trouver et je voulais mettre ma solution pour en faire profiter d'autres personnes mais vous avez été plus rapides que moi

Ma solution comprend également l'insertion de la date aussi voici mon bout de code


Quoi qu'il en soit, merci à vous deux et à très bientôt

Bonne journée
😱

Private Sub Worksheet_Change(ByVal Target As Range)

'Premier tableau<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If Not Intersect(Target, Range("k8:k65535")) Is Nothing Then
If Target.Value <> "" Then
Cells(Target.Row, 1).Value = Date
End If
Cells(Target.Row, 2).Value = Utilisateur()

If Target.Value = "" Then
Cells(Target.Row, 1).Value = ""
Cells(Target.Row, 2).Value = ""
End If
End If
End Sub