transfert entre listbox

Bonjour petit coco

en pièce jointe ton fichier modifié.

Pour supprimer un item de ta listbox il te faut utiliser listbox1.removeitem(index)

comme tu es en multiselection, il te faut boucler à l'envers (for i=listbox1.listcount-1 to 0 step -1) sur chaque élément de la listbox, sinon tu aura une erreur puisque tu supprimes des iterations dans ta boucle (suis-je clair ?)

donc, nouveau souci, tes éléments sont renvoyées en sens inverse de leurs sélections, ex :

tu sélectionnes a et ben listbox1, et tu retrouves en listbox2: b et a.

si ceci est génant, reviens nous le dire, on fera autrement.

salut [file name=dbllistbox_20060313114026.zip size=12629]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dbllistbox_20060313114026.zip[/file]

Bonjour PetitCoco, Hervé, bonjour le forum,

Hou j'ai bien galéré sur ce coup-là... Alors qu'Hervé a dû faire ça les doigts dans le nez (il n'a aucune tenue ce gars...). J'envoie quand même m'a proposition assez différente de celle d'Hervé puisque j'utilise la colonne B pour la ListBox2, car sinon à la réouverture de l'UserForm tout est réinitialisé et je ne vois plus l'intérêt... [file name=dbllistbox_v2.zip size=16877]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dbllistbox_v2.zip[/file]

re petitcoco, salut robert

ah oui, tu as raison, faut bien renvoyer les données apres sinon ca ne sert à rien.

personnellement j'utilise l'evenement terminate, comme ca on ne fait la manip qu'une fois :

Private Sub UserForm_Terminate()
Dim i As Byte

For i = 1 To 2
        Columns(i).Clear
        With Controls('listbox' & i)
                If Not .ListCount = 0 Then
                        Cells(1, i).Resize(.ListCount, 1) = .List
                End If
        End With
Next i

End Sub

Cliquez pour agrandir...

et à l'initialize :

Private Sub UserForm_Activate()
Dim i As Byte
Dim j As Integer

For i = 1 To 2
        For j = 1 To Cells(65536, i).End(xlUp).Row
                Controls('listbox' & i).AddItem Cells(j, i)
        Next j
Next i

End Sub

Cliquez pour agrandir...

salut