prob de deplacement d'item dans une listbox :( (EXCEL)

Question

Bonjour la Cie et salut le forum !

Voilà j'aimerai deplacer vers le haut un item (selectionné) dans une listbox grace à un bouton 'btn1', je ne vois pas du tout comment ecrire le code :(
Si vous pouviez m'aider svp... je suis pomé.
Merci d'avance !!!!

"" SI "je peux ecrire" alors "je peux parler" ....END ! BIPPPP 'syntax error.

econs · Answer

Une form, une listbox nommée list1, un bouton nommé command1, et hop, tu copies ce code là. A toi ensuite de l'adapter à ton besoin.

************CODE*****************
Private Sub Command1_Click()
Dim s As String
s = List1.List(List1.ListIndex) 'récupère l'élément sélectionné
List1.RemoveItem 4 'l'efface
List1.AddItem s, 2 'le rajoute en deuxieme position

'Ce code recopie le ième élément et le déplace en deuxième position. Il ne procede pas au décalage des données dans la listbox
End Sub

Private Sub Form_Load()
List1.AddItem "tuiytiu"
List1.AddItem "ghgffg"
List1.AddItem "azaza"
List1.AddItem "......."
List1.AddItem "*******"
List1.AddItem "°°°°°°°"
End Sub

Manu

econs · Answer

oups .. sorry, un oubli :

list1.removeitem 4 doit être remplacé par 

dim i as integer
....
i = list1.listindex
list1.removeitem i

Manu

nikovb · Answer

Merci  a toi manu , mais comment je peux realiser un decalage comme on pe le voir dans certaines options d'application ? a moin que se ne soit qu'un 'copier-coller' d'item? comme dans ton code laissé ici !

"" SI "je peux ecrire" alors "je peux parler" ....END ! BIPPPP 'syntax error.

econs · Answer

Ca devrait aller beaucoup mieux comme çà :

*********************************
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
i = List1.ListIndex
s = List1.List(List1.ListIndex) 'récupère l'élément sélectionné
List1.RemoveItem i 'l'efface
If i <> 0 Then
    List1.AddItem s, i - 1 
    List1.ListIndex = i - 1
End If
End Sub

Private Sub Form_Load()
List1.AddItem "tuiytiu"
List1.AddItem "ghgffg"
List1.AddItem "azaza"
List1.AddItem "......."
List1.AddItem "*******"
List1.AddItem "°°°°°°°"
End Sub

******************************

Manu

nikovb · Answer

J'comprend pas là :( ca me sort un 'unspecified error' à la ligne "List1.RemoveItem i " lors de l'effacement de l'item selectionner.... j peux meme pas voir si ca fonctionne correctement ;(

"" SI "je peux ecrire" alors "je peux parler" ....END ! BIPPPP 'syntax error.

econs · Answer

ben c la copie conforme de mon code (CTRL+C, CTRL+V)

euh ...
Je crois que c'est parce que tu n'as pas sélectionné d'item à déplacer !

Manu

nikovb · Answer

LOL sisi !! 
(dis voir c un code pour vb ou vba ?) car moi c une appli vba ... merci qd meme :)
mais c bizar ....

"" SI "je peux ecrire" alors "je peux parler" ....END ! BIPPPP 'syntax error.

econs · Answer

Ah ah ... moi c VB.
Et çà fonctionne super bien, vu que c un code tout bête ...
je vais voir ce que çà fait sous VBA et je reviens

Manu

nikovb · Answer

g verifier de mon cote il n'y a pas de difference , y a bien la methode 'removeitem' dans vba. Ca ne pe pas venir de là.

"" SI "je peux ecrire" alors "je peux parler" ....END ! BIPPPP 'syntax error.

econs · Answer

Même code dans VBA (aux noms d'objets près ) et çà fonctionne très bien.
Un clic sur la form pour charger la listbox et un clic sur le bouton pour déplacer l'élément sélectionné. J'peux pas faire plus... çà marche nickel. :o|

*********************************

Private Sub CommandButton1_Click()
Dim s As String
Dim i As Integer
i = ListBox1.ListIndex
s = ListBox1.List(ListBox1.ListIndex) 'récupère l'élément sélectionné
ListBox1.RemoveItem i 'l'efface
If i <> 0 Then
ListBox1.AddItem s, i - 1
ListBox1.ListIndex = i - 1
End If
End Sub

Private Sub UserForm_Click()
ListBox1.AddItem "tuiytiu"
ListBox1.AddItem "ghgffg"
ListBox1.AddItem "azaza"
ListBox1.AddItem "......."
ListBox1.AddItem "*******"
ListBox1.AddItem "°°°°°°°"

End Sub
**********************************

Manu

nikovb · Answer

ok bon ca marche bien ! merci :) sinon g compris en fait je fais reference a un range dans une feuille excel et apparement c t ca ki foutait la merdouille , bref ! MERCI MANU c cool de ta part ...et merci pour ta grande patience ! lol 

"" "Viendez sur #programmation on s'eclate comme des fous !.

econs · Answer

no problemo
bonne continuation

Manu

Prob de deplacement d'item dans une listbox :( (EXCEL)

12 réponses

Discussions similaires