listbox, changement de place des lignes

Bonjour,

ListBox1.ListIndex = ListBox1.ListIndex - 1

Camille

-----Message d'origine-----
Bonjour ,

Voilà j'aimerai, grace a un commandbouton 'bt1', remonter
d'un cran la ligne selectionnée dans
mon 'listbox1' ,pourriez vous m'eclairer un peu svp ! :(
Merci d'avance

Niko
.

Bonjour Niko,

Suppose que tu as un contrôle ListBox dans un formulaire.

Si ta question est : Comment en sélectionnant un item dans la liste, réussir à modifier son rang de 1 vers le haut en
cliquant sur un bouton, regarde ce qui suit :

Initialisation du contenu du contrôle ListBox
'--------------------------------
Private Sub UserForm_Initialize()

Dim Tblo As Variant
With Worksheets("Feuil2")
Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Me.ListBox1.List = Tblo

End Sub
'--------------------------------

Bouton de commande qui permet de déplacer vers le haut un item du contrôle ListBox
Le principe est le même pour déplacer un item vers le bas .
'------------------------------
Private Sub CommandButton1_Click()

Dim Temp As String

With Me.ListBox1
If .Selected(.ListIndex) = True Then
If .ListIndex = 0 Then
Temp = .List(.ListCount - 1)
.List(.ListCount - 1) = .List(.ListIndex)
.List(.ListIndex) = Temp
.Selected(.ListCount - 1) = True
Else
Temp = .List(.ListIndex - 1)
.List(.ListIndex - 1) = .List(.ListIndex)
.List(.ListIndex) = Temp
.Selected(.ListIndex - 1) = True
End If
End If
End With

End Sub
'------------------------------


Salutations!


"niko" <niko@discussions.microsoft.com> a écrit dans le message de news:0e0301c3a9e4$54f5ac10$a101280a@phx.gbl...
Bonjour ,

Voilà j'aimerai, grace a un commandbouton 'bt1', remonter
d'un cran la ligne selectionnée dans
mon 'listbox1' ,pourriez vous m'eclairer un peu svp ! :(
Merci d'avance

Niko

Dans la procédure, il manque une petite ligne au cas où l'usager appuie sur le bouton et qu'aucun item n'a été
sélectionné.

With Me.ListBox1
If .ListIndex = -1 Then Exit Sub
'.../...


end with



Salutations!


Suppose que tu as un contrôle ListBox dans un formulaire.

Si ta question est : Comment en sélectionnant un item dans la liste, réussir à modifier son rang de 1 vers le haut en
cliquant sur un bouton, regarde ce qui suit :

Initialisation du contenu du contrôle ListBox
'--------------------------------
Private Sub UserForm_Initialize()

Dim Tblo As Variant
With Worksheets("Feuil2")
Tblo = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Me.ListBox1.List = Tblo

End Sub
'--------------------------------

Bouton de commande qui permet de déplacer vers le haut un item du contrôle ListBox
Le principe est le même pour déplacer un item vers le bas .
'------------------------------
Private Sub CommandButton1_Click()

Dim Temp As String

With Me.ListBox1
If .Selected(.ListIndex) = True Then
If .ListIndex = 0 Then
Temp = .List(.ListCount - 1)
.List(.ListCount - 1) = .List(.ListIndex)
.List(.ListIndex) = Temp
.Selected(.ListCount - 1) = True
Else
Temp = .List(.ListIndex - 1)
.List(.ListIndex - 1) = .List(.ListIndex)
.List(.ListIndex) = Temp
.Selected(.ListIndex - 1) = True
End If
End If
End With

End Sub
'------------------------------


Salutations!


"niko" <niko@discussions.microsoft.com> a écrit dans le message de news:0e0301c3a9e4$54f5ac10$a101280a@phx.gbl...
Bonjour ,

Voilà j'aimerai, grace a un commandbouton 'bt1', remonter
d'un cran la ligne selectionnée dans
mon 'listbox1' ,pourriez vous m'eclairer un peu svp ! :(
Merci d'avance

Niko

Bonsoir Niko,

Tu as une réponse à ton premier message.


Salutations!


"niko" <niko@discussions.microsoft.com> a écrit dans le message de news:0e0301c3a9e4$54f5ac10$a101280a@phx.gbl...
Bonjour ,

Voilà j'aimerai, grace a un commandbouton 'bt1', remonter
d'un cran la ligne selectionnée dans
mon 'listbox1' ,pourriez vous m'eclairer un peu svp ! :(
Merci d'avance

Niko