Option Explicit
Sub ChargementListBox1()
'nettoyage
ListBox1.Clear
With ListBox1
.List = Sheets(1).[liste].Value <========================ici bug
.MultiSelect = fmMultiSelectMulti
.ColumnHeads = True
.ColumnCount = 5
.ColumnWidths = "50;180;50;50;50"
End With
End Sub
Private Sub CommandButton1_Click()
'copie les lignes selectionnées dans la colonne G
Dim i As Integer
Dim rg As Range
Dim Fichier As Workbook
Dim Chemin As String
Dim derlig As Long, i As Long
'Call hautpage
Chemin = commande.CBlistefournisseurs
Application.ScreenUpdating = False
On Error Resume Next
Set Fichier = Workbooks.Open("C:\Facturation\base\fournisseurs\" & Chemin)
derlig = Sheets(1).Cells(Rows.Count, 4).End(xlUp).Row + 1
With Workbooks(Chemin)
'on boucle sur tous les éléments du Listview
For i = 0 To Me.ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Sheets(1).Cells(derlig, 4) = ListBox1.List(i)
Sheets(1).Cells(derlig, 5) = ListBox1.List(i, 1)
Sheets(1).Cells(derlig, 6) = ListBox1.List(i, 2)
Sheets(1).Cells(derlig, 7) = ListBox1.List(i, 3)
derlig = derlig + 1
End If
ListBox1.Selected(i) = False
Next i
.Close (1)
End With
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
'activation du chargement de la listbox
Call ChargementListBox1
End Sub