Bonjour,

Je souhaite dupliquer (copier et coller) une ligne de ma listbox mais je n’arrive pas à la coller ou je le souhaite.
En effet avec mon code, ma ligne se colle à la deuxième ligne de ma base de donnée (juste en dessous de mes entêtes) alors que je voudrais qu'elle se colle soit après ma ligne sélectionnée soit en bas de ma base de donnée.

Ma listbox est "listbox1" et elle se trouve sur l'userform "Form6Combos"
Ma base de donnée est "BD matériel"
Mon boutton pour la duplication est "B_dup"

J'aimerais sélectionner une ligne dans ma listbox et quand j’appuie sur le bouton de duplication, j'obtienne une deuxième ligne identique.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub B_dup_Click()
 For numlignevide = 2 To Range("A" & Rows.Count).End(xlUp).row
        If Cells(numlignevide, 1) = "" Then
            Exit For
        End If
    Next
    For i = 1 To 11
        Sheets("BD matériel").Cells(numlignevide, i).Value = Me.ListBox1.List(ListBox1.ListIndex, i - 1)
Next
UserForm_Initialize
End sub
Voila mon soucis, en espérant que quelqu'un puisse m'aider.

Je vous souhaite de bonnes fêtes de fin d'année.

Quentin