Application.Username

[modus.57]

Bonjour le forum?

Je souhaiterais chaque fois que la feuille change envoyer le texte:
-'LT' dans la cellule A1 et 'L. TARTENPION' dans la cellule A2 sile nom de l'utilisateur = luc
-'PL' dans la cellule A1 et 'P. LIMENT' dans la cellule A2 sile nom de l'utilisateur = paul

J'ai essayé le code suivant mais cela fonctionne pas

Private Sub Worksheet_Change(ByVal Target As Range)

If Application.Username ='luc' Then
[A1] = 'LT'
[A2] = 'L. TARTENPION'
End If

If Application.Username ='paul' Then
[A1] = 'PL'
[A2] = 'P. LIMENT'
End If

End Sub

Quelqu'un pourrait-il m'aider

MERCI D'AVANCE & A+

 

[Papi]

Salut modus, le forum

As tu vérifié dans Outil>option>général>nom utilisateur, que les noms sont bien Luc et Paul ?

 

[modus.57]

Ciao Pascal, le forum

J'ai vérifié dans Outil>option>général>nom utilisateur, les noms sont bien luc et paul ?

A +