Discussion :

[anubisigfrid]

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.

[dadavyvy]

Exemple dans une UserForm avec 2 ListBoxes et 1 CommandButton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anubisigfrid]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.