Spinbutton pour changer l'ordre d'une listbox multi colonnes

lowkick · 27 Octobre 2012

Bonjour,

J'utilise des spinbuttons pour changer l'ordre des items d'une listbox, mais je n'arrive pas adapter celui ci pour qu'il fonctionne sur une listbox multi colonnes . Est-ce que quelqu'un pourrais m'aider ?

Code:

Private Sub SpinButton1_SpinUp()
If Liste_ouvr_PRO.ListCount = 0 Then Exit Sub
If Liste_ouvr_PRO.ListIndex = 0 Then Exit Sub
Dim s As String
Dim n As Integer
n = Liste_ouvr_PRO.ListIndex
s = GetItemText(n - 1)
Liste_ouvr_PRO.RemoveItem n - 1
Liste_ouvr_PRO.AddItem s, n
End Sub

Private Sub SpinButton1_SpinDown()
If Liste_ouvr_PRO.ListCount = 0 Then Exit Sub
If Liste_ouvr_PRO.ListIndex = Liste_ouvr_PRO.ListCount - 1 Then Exit Sub
Dim s As String
Dim n As Integer
n = Liste_ouvr_PRO.ListIndex
s = GetItemText(n + 1)
Liste_ouvr_PRO.RemoveItem n + 1
Liste_ouvr_PRO.AddItem s, n
End Sub

Private Function GetItemText(i As Integer) As String
GetItemText = Liste_ouvr_PRO.List(i)
End Function

kjin · 27 Octobre 2012

Re : Spinbutton pour changer l'ordre d'une listbox multi colonnes

bonsoir,
il faut initialiser t1 à l'ouverture du formulaire et le déclarer en tête du module

Code:

Dim t1

Private Sub UserForm_Initialize()
t1 = Liste_ouvr_PRO.List
End Sub

Private Sub SpinButton1_SpinUp()
x = Liste_ouvr_PRO.ListIndex
If Liste_ouvr_PRO.ListCount = 0 Then Exit Sub
If x <= 0 Then Exit Sub
For i = 0 To Liste_ouvr_PRO.ColumnCount - 1
    t1(x, i) = Liste_ouvr_PRO.List(x - 1, i)
    t1(x - 1, i) = Liste_ouvr_PRO.List(x, i)
Next
Liste_ouvr_PRO.List = t1
Liste_ouvr_PRO.ListIndex = x - 1
End Sub

Private Sub SpinButton1_SpinDown()
x = Liste_ouvr_PRO.ListIndex
If Liste_ouvr_PRO.ListCount = 0 Then Exit Sub
If x = Liste_ouvr_PRO.ListCount - 1 Then Exit Sub
For i = 0 To Liste_ouvr_PRO.ColumnCount - 1
    t1(x, i) = Liste_ouvr_PRO.List(x + 1, i)
    t1(x + 1, i) = Liste_ouvr_PRO.List(x, i)
Next
Liste_ouvr_PRO.List = t1
Liste_ouvr_PRO.ListIndex = x + 1
End Sub

A+
kjin

lowkick · 29 Octobre 2012

Re : Spinbutton pour changer l'ordre d'une listbox multi colonnes

Milles mercis, ça marche parfaitement 🙂

Spinbutton pour changer l'ordre d'une listbox multi colonnes

lowkick

Guest

kjin

XLDnaute Barbatruc

lowkick

Guest

Discussions similaires

Spinbutton pour changer l'ordre d'une listbox multi colonnes

lowkick

Guest

kjin

XLDnaute Barbatruc

lowkick

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency