Copier des données d'une listbox vers une autre

bonjour a tous.

Je seche encore une fois et n'arrivant a rien je me retourne vers le forum !!!

voila j'ai un userform avec 2 listbox de 2 colonnes chacunes

je souhaite pouvoir realiser une multi selection dans la premiere listbox et suite a cela inserer dans la deuxieme listbox les valeurs sélectionnées ( a chaque fois pour les 2 colonnes), tout cela par contre avec les criteres suivant : placement dans l'ordre / à la premiere listbox, pas de copie si les données ont déja été transférées.

Le transfert est bien sur commandé via un bouton de commande.

Suite a toutes mes recherches j'arrive au code suivant :

Private Sub CmdAjout_Click()

Dim j As Integer

For j = 0 To ListJoueur.ListCount - 1

If ListJoueur.Selected(j) = True Then

ListJoueurSelectionne.AddItem ListJoueur.List(j, 0)

ListJoueurSelectionne.List(j, 1) = ListJoueur.List(j, 1)

End If

Next j

End Sub

LE resultat du code est bien la copie de la ligne, mais :

+ dans le cas d'une case vide dans la premiere listbox, cela cree un decalage dans le resultat de la listbox

+ je n'ai pas le test sur les valeurs et je ne sais pas comment le faire

+ le code copie les lignes dans le desordre

merci d'avance

Bonsoir

Sans avoir tout compris quant au résultat que tu veux obtenir

Private Sub CmdAjout_Click()
Dim J As Integer

  With Me.ListJoueurSelectionne
    .Clear
    For J = 0 To Me.ListJoueur.ListCount - 1
      If Me.ListJoueur.Selected(J) = True Then
        .AddItem Me.ListJoueur.List(J, 0)
        .List(.ListCount - 1, 1) = Me.ListJoueur.List(J, 1)
      End If
    Next J
  End With
End Sub

bonsoir

et merci c'est super ca marche.

Tu as raison je n'ai pas vraiment explique mon besoin, mais c'est long a expliqué j'espere que cela ne te gene pas.

Merci en tout cas

@+

Steve