Transfert d'items sélectionnés du listbox1 vers le listbox2

[blord]

Bonjour à tous,

Dans l'une de mes applications, j'aimerais que l'utilisateur puisse sélectionner un ou plusieurs items dans un listbox (liste de valeurs assez longue) et que les sélections faites s'affichent dans un deuxième listbox afin qu'il ait de façon concise les choix sélectionnés.

Est-ce que celà est possible de rafraichir automatiquement le listbox2 à chaque sélection/désélection d'items dans le listbox1 ? J'ai fait une tentative dans le fichier joint mais.... Je préfèrerais, si possible éviter l'utilisation d'un bouton pour la mise à jour du listbox2...

Merci pour vos conseils !

Benoit Lord

 

[Pierrot93]

Re : Transfert d'items sélectionnés du listbox1 vers le listbox2

Bonsoir,

regarde ceci, code à utiliser dans le module de ton usf :

Option Explicit
Private Sub ListBox1_Change()
Dim i As Integer
ListBox2.Clear
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then ListBox2.AddItem ListBox1.List(i)
Next i
End Sub
Private Sub UserForm_Initialize()
With ListBox1
    .MultiSelect = fmMultiSelectMulti
    .List = Range("A1:A30").Value
End With
End Sub

bonne soirée
@+

 

[blord]

Re : Transfert d'items sélectionnés du listbox1 vers le listbox2

Bonsoir Pierrot93, le forum,

Merci beaucoup, c'est exactement celà....

Bonne fin de soirée...

Blord