Annonce
#1 Fri 25 July 2003 15:13
- Pffred
- Invité
VBA : Garder le meme ordre des items entre 2 ListBox
Bonjour,
Quelqu'un peut-il me dire comment faire pour garder le meme ordre des items presents dans une liste ListBox1 lorsque l'utilisateur ajoute les items selectionnes dans une seconde listBox ?
Le but etant d'avoir :
Si j'ajoute en premier l'image3, puis l'image2
ListBox1 :
Image1
Image2
Image3
listBox2 :
Image2
Image3
Et non plus ce que j'obtiens avec le code suivant :
ListBox1 :
Image1
Image2
Image3
listBox2 :
Image3
Image2
Voici le code du bouton qui permet de faire passer les items de la lst1 a la lst 2 en vba :
Code:
Private Sub CdButton2_AddSelected_Click()
Lst1.MultiSelect = fmMultiSelectExtended
Dim i As Long
For i = Lst1.ListCount - 1 To 0 Step -1
If Lst1.Selected(i) = True Then
Lst2.AddItem Lst1.List(i)
Lst1.RemoveItem i
End If
Next i
End SubPar avance merci,
fred
#2 Fri 25 July 2003 17:47
- Hugues Moisy
- Invité
Re: VBA : Garder le meme ordre des items entre 2 ListBox
S'il s'agit de garder un ordre alphabetique, alors il suffit de donner la propriete Sort a True pour les deux listbox.
Cordialement
Hugues Moisy
#3 Fri 25 July 2003 16:25
- Fred P
- Invité
Re: VBA : Garder le meme ordre des items entre 2 ListBox
Salut Hugues,
En fait, il s'agit de garder l'ordre de la premiere liste. Pour tout ajout ou retrait d'items dans la deuxieme liste, la position des items reste identique a la premiere liste.
A titre d'exemple, dans la version francaise de l'extension XTools d'ESRI France, le bouton recapituler des multi-champs qui fait apparaitre 2 listes Box permet de garder la position des items.
L'interet est de garder le meme ordre des items presents dans la TOC d'Arcmap.
Frederic Prally
