Macro selection agent de saisie à l'ouverture du fichier

Bonjour à tous,

J'ai un fichier de saisie ( voir pièce jointe)

Je souhaiterai mettre un place une sorte de formulaire de saisie.

L'idée est de sélectionner un nom d'agent parmi deux choix à l'ouverture du fichier.

Ainsi lorsque le nom aura été choisi, il s'inscrira automatiquement en colonne K . Pour toutes les lignes saisies jusqu'à la fermeture du fichier.

Lorsque l'on rouvrira le fichier on pourra re-choisir le nom de l'agent.

Voyez vous ce que je souhaiterai faire?

A disposition,

Cordialement,

Manoss

Bonjour Manoss

Propositon si tu souhaites insérer le nom de l'utilisateur (ou identifiant) de l'ordinateur...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A As String, B As String, C As String
    If Not Application.Intersect(Target, Range("B2:B1000")) Is Nothing Then
        A = Environ("Username")
        B = Split(LTrim(A) & Space(1))(0)
        C = Mid(A, InStrRev(A, " ") + 1)
        ActiveCell = B
        ActiveCell.Offset(0, 1) = C
    End If
End Sub

Edit msg à supprimer..