Nom d'utilisateur

Bonjour,
à mettre dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Target = Environ("USERNAME")
End Sub

Bon courage

"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
45bc7994$0$5104$ba4acef3@news.orange.fr...

Bonjour et meilleurs voeux s'il est encore temps,
Je voudrais que le nom d'utilisateur s'affiche dans une cellule lorsqu'on
clique sur un bouton dans la feuille.
Est ce possible
Merci d'avance

Bonjour
'--------
Sub jj()
[a1] = Application.UserName
End Sub
'----------


--
Salutations
JJ



"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
45bc7994$0$5104$ba4acef3@news.orange.fr...

Bonjour et meilleurs voeux s'il est encore temps,
Je voudrais que le nom d'utilisateur s'affiche dans une cellule lorsqu'on
clique sur un bouton dans la feuille.
Est ce possible
Merci d'avance

Bonjour
'--------
Sub jj()
[a1] = Application.UserName
End Sub
'----------


Merci Jacky, c'est juste ce qu'il me fallait

Bon dimanche

Bonjour,

On peut récupérer le nom d'utilisateur défini à l'installation d'Ex cel
et le nom d'utilisateur réseau

Dans un module: Alt+F11 puis insertion/Module

Function nomUser()
nomuser = Application.UserName ' nom défini à l'installation du
logiciel
End Function

Function nomUserRéseau()
nomUserRéseau = Environ("UserName") ' nom d'utilisateur réseau
End Function

Dans A1: =NomUser() ou NomUserRéseau()

Cordialement JB


On 28 jan, 11:23, Jdel <j...@wanadoo.fr> wrote:

Bonjour et meilleurs voeux s'il est encore temps,
Je voudrais que le nom d'utilisateur s'affiche dans une cellule
lorsqu'on clique sur un bouton dans la feuille.
Est ce possible
Merci d'avance