Dupliquer une ligne d'une listbox

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 :

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

Bonsoir,

Duplique l'enregistrement en cours du formulaire et l'ajoute en fin de BD.

Private Sub B_duplique_Click()
  Me.Enreg = Range(NomTableau).Rows.Count + 1
  B_valid_Click
End Sub

Boisgontier

Bonjour,

Merci beaucoup pour votre code, il fonctionne parfaitement et remplit ma requête.

Je vous remercie encore pour tout votre travail.

Passez de bonnes fêtes.

Quentin