Bouton Up/Down Item Listbox
Bonjour,
Je développe actuellement une application access via VBA. J'ai une listbox qui s'alimente selon les choix de l'utilisateur. Ce que je souhaiterer faire c'est que l'utilisateur puisse deplacer les items dans cette list au clic d'un bouton. L'action serait simple, juste le up ou le down d'un item au clic dans cette meme liste. J'ai tenté un morceau de code mais sans réussite. Pour information ma listbox est multicolonnes(9 au total).
Merci d'avance.
Mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11
| Dim selectedIndex As Integer
selectedIndex = maliste.ListIndex
Dim tmp
For i = 0 To maliste.ListCount
If i = selectedIndex - 1 Then
tmp = maliste.List(i)
maliste.RemoveItem (i)
maliste.AddItem tmp, i + 1
End If
Next |
Ce qui ne marche pas du tout bien entendu.