Private Sub ListBox1_Click() ListBox2.ListIndex = ListBox1.ListIndex End Sub Private Sub ListBox2_Click() ListBox1.ListIndex = ListBox2.ListIndex
Private Sub CommandButton1_Click() Sheets("Impression").Cells.ClearContents Sheets("Impression").Range("B1").Resize(Me.ListBox1.ListCount, Me.ListBox1.ColumnCount) = Me.ListBox1.List Sheets("Impression").Range("C1").Resize(Me.ListBox2.ListCount, Me.ListBox2.ColumnCount) = Me.ListBox2.List Sheets("Impression").Range("A1").Resize(Me.ListBox3.ListCount, Me.ListBox3.ColumnCount) = Me.ListBox3.List Sheets("Impression").PrintOut End Sub