Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer nom utilisateur si saisie dans une ligne

  • Initiateur de la discussion Initiateur de la discussion lmylvc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lmylvc

XLDnaute Occasionnel
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 😉
 
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

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…