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 :
Voila mon soucis, en espérant que quelqu'un puisse m'aider.
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
Je vous souhaite de bonnes fêtes de fin d'année.
Quentin
Partager