bonjour,
sans vouloir offenser personne, retranscrire un code VBA comme deux goute d'eau en vb.net je n'adhère pas!
Code:
1
2
3
4
5 Dim XLS As Object = XlApp.Workbooks.Open("C:\Test\test.xlsm") Dim R As Array = XLS.Sheets("Feuil1").range("A1:A997920").value Dim T As Object = R.Cast(Of Object).ToArray.ToList.Distinct.ToArray() Array.Sort(T) Me.ComboBox1.DataSource = T