copier une listebox dans une autre listbox

Question

Question toute bête, je souhaiterai copier l'intégralité d'une liste box dans une autre via un bouton. En effet, j'arrive à les ajouter un par un mais pas la totalité d'un coup.

 Petites précisions : les éléments de la première listbox sont des éléments d'une base de données.

Question 2:  toute bête également, comment supprimer l'un des éléments de cette liste en un click également.

D'avance merci.

crenaud76 · Answer

Réponse 1 sub Command1_click() Dim i as long For i = 0 to list1.listcount-1 List2.additem list1.list(i) Next end sub Réponse 2

List1.RemoveItem Index Ou Index est un entier indiquant l'index de l'item à supprimer Christophe R.

xeresakrom · Answer

Pour la premiere réponse, nickel mais pour la deuxième, g un petit problème :
En effet, Index n'a pas de valeur étant donné que ma list change tout le tps. comment puis-je faire dans ce cas pour supprimer l'item selectionné?

xeresakrom · Answer

Pour ceux que ça interesse, voila la réponse à ma 2ème question : 

private sub bouton_click ()

dim j as integer

    j = list.listindex
    list.removeitem (j)

end sub
Merci à crenaud76

crenaud76 · Answer

En plus facile, ca donnera meme tout simplement cela : 

List.RemoveItem (List.ListIndex)

En bref, pas besoin de passer par une variable intermédiaire

Christophe R.

Copier une listebox dans une autre listbox

4 réponses

Discussions similaires