Listbox envoyer la sélection

Bonjour,

Dans lez fichier ci-joint, ouverture de l'userform clic droit en f1, je souhaiterais envoyer la sélection de la listebox dans la première cellule vide de la colonne F, à la suite des données;

Merci pour votre aide

Bonjour Subfestivus, bonjour le forum,

En pièce jointe ton fichier modifié. Plus de bouton Enregistrer, un double-clic dans la ListBox1 a le même résultat.

Le code :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim O As Worksheet
Dim LI As Integer
Dim I As Integer

Set O = Worksheets("Base")
LI = O.Cells(Application.Rows.Count, "F").End(xlUp).Row + 1
If Me.ListBox1.ListCount = 0 Then Exit Sub
For I = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(I) = True Then
        O.Cells(LI, "F").Value = Me.ListBox1.List(I)
        Exit For
    End If
Next I
Unload Me
End Sub

Le fichier :

Bonjour,

Salut Thauthème,

Une autre possibilité.

Nb : Il faudrait penser à utiliser des tableaux structurés, c'est beaucoup plus simple pour coder.

Excellent

Grand Merci