Re : Userform et listbox je n'arrive pas a valider !
bonjour titiborregan5, le Forum
Merci pour ton aide
En fait les deux colonnes a partir de :
Private Sub UserForm_Initialize()
Dim i As Single
CHOIX_CLIENT.ListBox1.ColumnCount = 2
'liste 2 colonnes
For i = 0 To 5
ListBox1.AddItem ' <<<<=== nécessaire ....
ListBox1.List(i, 0) = i
ListBox1.List(i, 1) = Rnd
'ListBox1.List(i, 2) = Rnd
Next i
Dim clé() As String, index() As Long, a(), b()
With Sheets("LISTES")
Me.ListBox1.List = .Range("A3:B" & .[A65000].End(xlUp).Row).Value
End With
a = Me.ListBox1.List
ReDim b(LBound(a) To UBound(a), LBound(a, 2) To UBound(a, 2))
ReDim clé(LBound(a) To UBound(a, 1))
ReDim index(LBound(a) To UBound(a, 1))
For i = LBound(a) To UBound(a, 1)
clé(i) = a(i, 0) & a(i, 1): index(i) = i
Next i
Call Tri(clé(), index(), LBound(a), UBound(clé))
For lig = LBound(clé) To UBound(clé)
For col = LBound(a, 2) To UBound(a, 2): b(lig, col) = a(index(lig), col): Next col
Next lig
Me.ListBox1.List = b
End Sub
A pres a voir chercher j'avais trouver cela pour les faire apparaitre
( mon niveau vba est en dessous de zero....!!
@+++