'---------------------- Descente de l'item sélectionné dans Listbox1----------------------------------
Private Sub SpinButton1_SpinDown()
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
Dim Num As Integer, xTmp As String
Dim T As Variant
With ListBox1
Num = .ListIndex
T = .List
xTmp = T(Num, 0)
T(Num, 0) = T(Num + 1, 0)
T(Num + 1, 0) = xTmp
.List = T
.Selected(Num + 1) = True
End With
End Sub
'---------------------- Montée de l'item sélectionné dans Listbox1----------------------------------
Private Sub SpinButton1_SpinUp()
If ListBox1.ListIndex < 1 Then Exit Sub
Dim Num As Integer, xTmp As String
Dim T As Variant
With ListBox1
Num = .ListIndex
T = .List
xTmp = T(Num, 0)
T(Num, 0) = T(Num - 1, 0)
T(Num - 1, 0) = xTmp
.List = T
.Selected(Num - 1) = True
End With
End Sub