ListIndex (Déplacer un item)

Version imprimable

27/04/2006, 15h16
borislotte

ListIndex (Déplacer un item)
Bonjour tout le monde

voilou la chose :
je posse une listbox rempli de valeurs, et je voudrai qu'a partir du moment ou je selectionne une valeur je puisse la remonter d'une ligne ou la redessendre.

exemple :

contenu de MaListe:
Valeur1
Valeur2
Valeur3

je selectionne "Valeur2" et je veux la faire passer sur le ligne 1.
ce qui me donnera comme ordre :
Valeur2
Valeur1
Valeur3

comment puis je faire pour obtenir ce resultat?

NB
j'ai essayer le code suivant, qui ne fonctionne pas car ListIndex est en lecture seul, alors que dans l'aide on me dit qu'il s'agit d'une propriete en lecture/ecriture.
Code:

1 2 3 If Me.Lis_Ordre.ListIndex <> -1 And Me.Lis_Ordre.ItemsSelected.Count = 1 Then Me.Lis_Ordre.ListIndex = Me.Lis_Ordre.ListIndex -1 End If
Merci de votre aide

je sais pas si tu peu déplacer mais tu peu effacer puis recréer ... tiens un exemple de code permettant de "monter" l'élément sélectionné de la list:
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim m Dim iM As Integer iM = ListBox1.ListIndex If iM > 0 Then m = ListBox1 ListBox1.RemoveItem (iM) ListBox1.AddItem m, iM - 1 ListBox1.ListIndex = iM - 1 End If

27/04/2006, 15h29
jmfmarques

Celà s'appelle un glisser déposer dans une listbox !
tu as des exemples sur ce forum !
Le dernier en date va beaucoup plus loin : glisser déposer entre 2 listboxes.
Tu y trouveras, entre autres le procédé employé pour s'y retrouver au moment de déposer.
Fais une recherche sur mon pseudo, le mot camembert et en limitant ta recherche à VB.
Pourquoi le mot camembert ? parce que j'y ai appliqué la "méthode" d'un sapeur pompier bien connu, qui, dans sa caserne, bouchait les trous en en créant d'autres !:? Ce pompier faisait rire mais, finalement, il n'était pas si fou !!!:lol:
27/04/2006, 15h50
borislotte

peut etre, pourriez vous me dire pourquoi listindex est en lecture seul.
svp

Merki
27/04/2006, 15h57
jmfmarques

Listindex n'est pas en lecture seule si ta listbox n'est pas "interdite" !
Si, au contraire, tu empêches son emploi, c'est évidemment autre chose !
On ne peut avoir le beurre et l'argent du beurre, ma foi !
27/04/2006, 16h18
bandit boy

hello, sur les conseils de jmf je fais un petit saut sur ce topic. Il est vrai que j'avais planché sur un problème un peu similaire dans ce topic :

http://www.developpez.net/forums/sho...=121733&page=4
(post 57 pour le code)

Bon j'ai un peu honte car je n'ai pas eu le temps de reprendre correctement mon code pour une seule listbox...:oops:, le stage ma renvoyé vers d'autres horizons (flexgrids...), cependant je peux toujours essayer de dépanner si besoin :lol:

Pour ce qui est de listindex, je sais que sous VBA-E il n'est qu'en lecture seule...
27/04/2006, 16h21
SfJ5Rpw8

Citation:

Envoyé par bandit boy

Pour ce qui est de listindex, je sais que sous VBA-E il n'est qu'en lecture seule...

à bon alors pourquoi le code que j'ai posté plus haut marche sous Excel ?
27/04/2006, 16h42
bandit boy

dsl bbil, j'ai peut etre parlé trop vite... car chez moi ton code ne marche pas, cela m'a donc induit en erreur
27/04/2006, 16h45
SfJ5Rpw8

Citation:

Envoyé par bandit boy

dsl bbil, j'ai peut etre parlé trop vite... car chez moi ton code ne marche pas, cela m'a donc induit en erreur

? a bon qu'elle version d'Excel utilise tu ..?
27/04/2006, 17h25
jmfmarques

Une pêtite interruption pour faire remarquer qu'une fois de plus l'absence du tag VBA fait perdre du temps !

Je vous laisse donc maintenant, mais reviendrai...
Si vous n'y parvenez pas : je fais ça avec ma méthode0
Dites-moi ;)

1 pièce(s) jointe(s)

j'ai trouver une parade a mon probleme.
c'est un peu un truc a la mord moi les ...
mais ca marche.

vous pourrez trouver ci dessous mon code et une image de mon formulaire

Pièce jointe 371

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Sub Cmd_VersBas_Click()
    Dim ISelection As String
    Dim ISuivant As String
    Dim Tableau As Variant, TableauClone As Variant
    Dim inc As Long
 
    If Me.Lis_Ordre.ListIndex <> -1 And Me.Lis_Ordre.ItemsSelected.Count = 1 Then
         If Me.Lis_Ordre.ListIndex = Me.Lis_Ordre.ListCount - 1 Then
            Exit Sub
        End If
 
        'Remplit le tableau avec la source de la liste
        Tableau = Split(Me.Lis_Ordre.RowSource, ";")
        TableauClone = Tableau
 
        For inc = 0 To UBound(Tableau) - 1 Step 2
 
            'item séléctionne
            If (Me.Lis_Ordre.ListIndex * 2) = inc Then
                'donne sa nouvelle place dans la source
                '(Vers ligne inférieur)
                TableauClone(inc + 2) = Tableau(inc)
                TableauClone(inc + 3) = Tableau(inc + 1)
            End If
            'item suivant - 1
            If ((Me.Lis_Ordre.ListIndex + 1) * 2) = inc Then
                'donne sa nouvelle place dans la source
                '(Vers ligne supérieur)
                TableauClone(inc - 2) = Tableau(inc)
                TableauClone(inc - 1) = Tableau(inc + 1)
                Exit For    'le travail est fini, pas besoin de continuer dans la boucle
            End If
        Next
        'affiche la nouvelle source de données
        Me.Lis_Ordre.RowSource = Join(TableauClone, ";")
    End If
End Sub
 
Private Sub Cmd_VersHaut_Click()
    Dim ISelection As String
    Dim ISuivant As String
    Dim Tableau As Variant, TableauClone As Variant
    Dim inc As Long
 
    If Me.Lis_Ordre.ListIndex <> -1 And Me.Lis_Ordre.ItemsSelected.Count = 1 Then
        If Me.Lis_Ordre.ListIndex = 0 Then
            Exit Sub
        End If
 
        'Remplit le tableau avec la source de la liste
        Tableau = Split(Me.Lis_Ordre.RowSource, ";")
        TableauClone = Tableau
 
        For inc = 0 To UBound(Tableau) - 1 Step 2
 
            'item séléctioner
            If (Me.Lis_Ordre.ListIndex * 2) = inc Then
                'donne sa nouvelle place dans la source
                '(Vers ligne Supérieur)
                TableauClone(inc - 2) = Tableau(inc)
                TableauClone(inc - 1) = Tableau(inc + 1)
                Exit For    'le travail est fini, pas besoin de continuer dans la boucle
            End If
            'item précédent
            If ((Me.Lis_Ordre.ListIndex - 1) * 2) = inc Then
                'donne sa nouvelle place dans la source
                '(Vers ligne inférieur)
                TableauClone(inc + 2) = Tableau(inc)
                TableauClone(inc + 3) = Tableau(inc + 1)
            End If
        Next
        'affiche la nouvelle source de données
        Me.Lis_Ordre.RowSource = Join(TableauClone, ";")
        Me.Lis_Ordre.Requery
    End If
End Sub

si quelqu'un a une idee moins contreniante, je suis preneur.

merci de votre aide a tous.
tchô

27/04/2006, 17h35
jmfmarques

Une autre fois : on peut faire sans tableau tremplin !;)

Et quid, hein, d'une liste déroulante (avec un élément transporté d'une partie visible vers une partie qui ne l'est pas encore ?) Hein ?8-)

Allez (ouvres tes yeux, Bandit Boy), on va ensemble faire un peu joujou avec mon vieux copain pompier fou (le fameux sapeur Camembert), qui faisait des trous partout dans sa caserne . Ce sera du "bouche-trou" et du "pousses-toi de là que je m'y mette".
Prêts ?
alors allons-y avec joie :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private jmf1 As Integer, jmf2 As Integer Private Sub List1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.MousePointer = 5 jmf1 = List1.ListIndex End If End Sub Private Sub List1_click() Dim ajmf1 As String, ajmf2 As String If Me.MousePointer <> 5 Then Exit Sub jmf2 = List1.ListIndex ajmf1 = List1.List(jmf1) ajmf2 = List1.List(jmf2) List1.AddItem ajmf1 List1.RemoveItem jmf1 For k = List1.ListCount - 1 To jmf2 + 1 Step -1 List1.List(k) = List1.List(k - 1) Next k List1.List(k) = ajmf1 Me.MousePointer = 0 End Sub
Méthode d'utilisation :
1) sélectionner (un click) l'article à déplacer
2) presser le bouton droit de la souris (le curseur change d'aspect)
3) se positionner sur l'article au dessus duquel on veut "déplacer"
4) cliquer du bouton gauche habituel ! (le curseur reprend son aspect normal)
Ceci marche y compris avec une liste déroulante, bien sur !:pingoin2:

28/04/2006, 08h16
bandit boy

j'ai ouvert grand les yeux, testé dès que j'ai pu et apprécié aussitôt ^^
merci beaucoup d'avoir pensé a moi ;)