Discussion :

[Mac_Gyver]

Bonjour,

Dans un formulaire j'ai une liste non déroulante et je voudrai modifier l'ordre des objets de cette liste en cliquant sur des boutons monter et descendre.

Avez-vous une idée ?

[Tofalu]

Est ce une liste de valeur ? Ou basée sur une requête ?

[Tofalu]

Je te propose ceci pour une liste de valeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function MonterDescendre(Liste As ListBox, Sens As Integer)
'sens : 0 pour monter, 1 pour descendre
On Error GoTo err
Dim c As New Collection
Dim i As Integer
Dim ID As Integer
ID = Liste.ItemsSelected(0)
For i = 0 To ID - 2 + Sens
c.Add Liste0.ItemData(i)
Next i
c.Add Liste0.ItemData(ID + Sens)
c.Add Liste0.ItemData(ID - 1 + Sens)
For i = ID + Sens + 1 To Liste.ListCount - 1
c.Add Liste0.ItemData(i)
Next i
For i = 0 To Liste.ListCount - 1
Liste.RemoveItem (0)
Next i
For i = 1 To c.Count
Liste.AddItem (c(i))
Next i
Liste.Selected(IIf(Sens = 0, ID - 1, ID + 1)) = True
err:
End Function

Et sur le bouton monter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonterDescendre Liste0, 0

Sur le bouton descendre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonterDescendre Liste0, 1