[VBA-E]Faire un Copier coller d'une ListBox à une autre

Bonjour à tous,

voilà j'ai plusieures ListBox qui affichent différentes feuilles de différents classeurs
le principe est de selectionner dans la Listbox 1 la feuille source et de la coller dans la feuille selectionnée dans la Listbox 2

comment pourrais-je faire?

merci à vous.

Exemple dans une UserForm avec 2 ListBoxes et 1 CommandButton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectMulti ListBox2.MultiSelect = fmMultiSelectMulti For i = 1 To 100 Me.ListBox1.AddItem "item" & i Next i End Sub   Private Sub CommandButton1_Click() Me.ListBox2.Clear For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then Me.ListBox2.AddItem Me.ListBox1.List(i) End If Next i End Sub

---

ok désolé j'ai trouvé la méthode;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

classeurorigine = ListBox1.Value feuillesource = ListBox2.Value classeurfin = ListBox3.Value   Workbooks(classeurorigine).Activate Sheets(feuillesource).Select Cells.Select Selection.Copy Workbooks("Essai de Base").Activate Sheets(classeurfin).Select Range("A1").Select ActiveSheet.Paste

---

voilà

merci pour votre aide.