Listbox1 vers Listbox2 avec Rowsource

Agé · 24 Juin 2013

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 · 24 Juin 2013

Re : Listbox1 vers Listbox2 avec Rowsource

Salut,

la méthode additem pour ton bouton sélection

VB:

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é · 25 Juin 2013

Re : Listbox1 vers Listbox2 avec Rowsource

Merci beaucoup Zon,
Cela fonctionne parfaitement!

Listbox1 vers Listbox2 avec Rowsource

Agé

Guest

Pièces jointes

Zon

XLDnaute Impliqué

Agé

Guest

Discussions similaires

Listbox1 vers Listbox2 avec Rowsource

Agé

Guest

Pièces jointes

Zon

XLDnaute Impliqué

Agé

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency