Listbox1 vers Listbox2 avec Rowsource

[Agé]

Bonsoir,
Dans une Userform,
Est-il possible d'avoir des données dans une ListBox1 (Rowsource="Nom") et de les transférer dans une Listbox2 grâce à des boutons ou bien des 2click?
Sachant que la manipulation inverse doit aussi être possible.

Veuillez trouver ci-joint un début de code mais je bloque sur l'action de transfert.
Merci pour votre aide

Agé

 

[Zon]

Re : Listbox1 vers Listbox2 avec Rowsource

Salut,

la méthode additem pour ton bouton sélection

Private Sub BnSelection_Click()
  ListBox2.Clear
  With ListBox1
    For i = 0 To .ListCount - 1
      If .Selected(i) Then ListBox2.AddItem .List(i)
    Next i
  End With
End Sub

pour le bouton tout, on peut écrire tout simplement

listbox2.list=listbox1.list

A+++

 

[Agé]

Re : Listbox1 vers Listbox2 avec Rowsource

Merci beaucoup Zon,
Cela fonctionne parfaitement!