Re : inversion selection dans listbox
mystere et boule de chewing !!!
je tape exactement le meme code avec la meme userform et ça marche pas !
il bloque sur le clear en avant derniere ligne avec ce messag ci dessous !!!??
erreur d'execution: '-2--------'
Voici le code que j'ai repris
Private Sub CommandButton2_Click()
Dim MaLig As Long, MaCol As Long
MaLig = UBound(lst_personnes.List)
MaCol = lst_personnes.ColumnCount
Dim MaVar()
For i = UBound(lst_personnes.List) To 0 Step -1
ReDim Preserve MaVar(MaLig, MaCol - 1)
For j = 0 To MaCol - 1
MaVar(MaLig - i, j) = lst_personnes.List(i, j)
Next
Next
usf1.lst_personnes.Clear
usf1.lst_personnes.List = MaVar
End Sub