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 :
Ce qui ne marche pas du tout bien entendu.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager