Re : UserformVBA
Rebonjour,
Voilà je rencontre un problème. En fait j'ai plusieurs listboxs dans mon formulaire. et du coup je souahaiterais forcer chaque colonne à se retrouver dans une listbox. J'ai essayer d'adapter votre code, mais je ne parviens qu'à mettre toutes les données de toutes mes colonnes dans les listbox... Comment faire. j'ai essayer:
Private Sub Ouvrir1_Click()
Dim Fichier As String
Dim Collec As New Collection
Dim Cell As Range, Itm As Long
Fichier = Application.GetOpenFilename
Workbooks.Open Fichier
CheminSo.Caption = Fichier
With Sheets("GCE_Globale_cible")
For Each Cell In .Range("A3:A" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Collec.Add Cell, CStr(Cell)
On Error GoTo 0
Next
For Each Cell In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
On Error Resume Next
Collec.Add Cell, CStr(Cell)
On Error GoTo 0
Next
For Each Cell In .Range("C3:C" & .Range("C65536").End(xlUp).Row)
On Error Resume Next
Collec.Add Cell, CStr(Cell)
On Error GoTo 0
Next
For Each Cell In .Range("D3
" & .Range("D65536").End(xlUp).Row)
On Error Resume Next
Collec.Add Cell, CStr(Cell)
On Error GoTo 0
Next
End With
For Itm = 1 To Collec.Count
Me.ListBox3.AddItem Collec.Item(Itm)
Next
For Itm = 1 To Collec.Count
Me.ListBox7.AddItem Collec.Item(Itm)
Next
For Itm = 1 To Collec.Count
Me.ListBox5.AddItem Collec.Item(Itm)
Next
For Itm = 1 To Collec.Count
Me.ListBox9.AddItem Collec.Item(Itm)
Next
For Itm = 1 To Collec.Count
Me.ListBox1.AddItem Collec.Item(Itm)
Next
End Sub