Discussion :

[fmris]

Bonjour
J'ai une listbox2 qui est alimenté par une listbox1.
Une fois la listbox2 alimenté, je souhaite faire remonter des lignes à l'intérieur de cette listbox.
La ligne 3 de la listbox2 que je selectionne, je la remonte via un bouton à la ligne 2 et la ligne de la ligne2 descend à la ligne 3.
Comment faire ?
Merci d'avance

[defluc]

Bonjour,

Un peu de réflexion, c'est enfantin.

Code :

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

1
2
3
4
5
6
Private Sub ModifBtn_Click()
Dim TmpStr As String
  TmpStr = ListBox1.List(2)
  ListBox1.List(2) = ListBox1.List(1)
  ListBox1.List(1) = TmpStr
End Sub

[jijie]

oui ou de ce genre

avec spinbutton

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
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub SpinButton1_SpinDown()
Dim TmpStr As String
Dim i As Integer
Dim e As Integer
e = ListBox1.ListCount
i = ListBox1.ListIndex
If i = e - 1 Then Exit Sub
'If i = 0 Then Exit Sub
  TmpStr = ListBox1.Value
  ListBox1.List(i) = ListBox1.List(i + 1)
  ListBox1.List(i + 1) = TmpStr
  ListBox1.Value = ListBox1.List(i + 1)
End Sub
 
Private Sub SpinButton1_SpinUp()
Dim TmpStr As String
Dim i As Integer
Dim e As Integer
e = ListBox1.ListCount
i = ListBox1.ListIndex
'If i = e - 1 Then Exit Sub
If i = 0 Then Exit Sub
  TmpStr = ListBox1.Value
  ListBox1.List(i) = ListBox1.List(i - 1)
  ListBox1.List(i - 1) = TmpStr
  ListBox1.Value = ListBox1.List(i - 1)
 
End Sub
 
Private Sub UserForm_Initialize()
    Dim i As Byte
 
    For i = 1 To 12
        ListBox1.AddItem "Ligne" & i
    Next i
End Sub