remplacement nom du "username"

[Kael88]

Bonjour le forum et les gens,

Ce coup-ci une question simple pour vous(confirmés), et compliquée pour moi(debutant),

j'appelle dans mon fichier le Environ("username"), que je repporte dans une cellule or je voudrai prendre ce username est le changé par un autre nom, le tout doit être fait en VBA.

ex: si username = "Paul" mettre "Camion" ou si username = "Jacques" mettre "Moto" ou si username = "Jean-Pierre" mettre "Bateau"

j'espere etre claire, je ne pense pas qu"un fichier soit de rigueur, merci de votre aide.

 

[Pierrot93]

Re : remplacement nom du "username"

Bonjour,

regarde du coté de la fonction "Switch", l'aide vba te fournira son fonctionnement...

bonne journée
@+

 

[gosselien]

Re : remplacement nom du "username"

Bonjour,

Sub SwitcherName()
muser = Application.UserName
If UCase(muser) = UCase("patrick") Then
[A1] = "autre"
ElseIf UCase(muser) = UCase("pierre") Then
[A1] = "celui la"
ElseIf UCase(muser) = UCase("pol") Then
[A1] = "celui ci"
Else: [A1] = Date
End If
End Sub

P.

 

[camarchepas]

Re : remplacement nom du "username"

Bonjour à tous ,

autre solution avec select case

Sub dd()
Select Case Environ("Username")
Case "Paul": Range("A1") = "Camion"
Case "Jacques": Range("A1") = "Moto"
Case "Jean-Pierre": Range("A1") = "Bateau"
End Select
End Sub

 

[Kael88]

Re : remplacement nom du "username"

le forum, Pierrot93, gosselien, camarchepas.

Déjà, merci de votre spontaneité,
c'est justement ce que je voulais, vos methodes fonctionnent bien, mais je prends celle de "camarchepas" qui est la plus simple.

merci encore de vous etre penchés sur mon problème