M
modus.57
Guest
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+
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+