récuperation d'information dans une listbox

bonjour a tous

j'ai une listbox à 3 colonnes
la 1er un prénom
la 2eme une date de naissance
la 3eme l'age

donc quand j'ai sélectionné plusieurs ligne dans la listbox, je voudrais après avoir cliqué sur une combobox, récupérer
dans une feuille "1"
colonne C le premier prénom
colonne D l'age
colonne E le deuxième prénom
etc...maxi 5 prénom et age

la dernière ligne pour écrire est sur la colonne A

merci pour votre aide

bonjour bosk1000,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub ComboBox1_Click() DerniereLigne = Sheets("Feuil1").Range("A65536").End(xlUp).Row For i = 0 To Me.ListBox1.ListCount - 1 If x / 2 = 5 Then Exit Sub If ListBox1.Selected(i) = True Then With Sheets("Feuil1") .Cells(DerniereLigne, 3 + x) = ListBox1.List(i, 0) .Cells(DerniereLigne, 4 + x) = ListBox1.List(i, 2) End With x = x + 2 End If Next i End Sub

---

excellent

j'essaie de comprendre le code et je bute sur certaine ligne

Code:

---

1 2 3

.Cells(DerniereLigne, 3 + x) = ListBox1.List(i, 0) .Cells(DerniereLigne, 4 + x) = ListBox1.List(i, 2)

---

j'ai compris que 0 est pour le prénom et 2 pour l'age
mais c'est plutôt la première partie que je ne comprend pas comment il fait pour placer les éléments l'un après l'autre

bonjour bosk1000,

Code:

---

1 2	.Cells(DerniereLigne, 3 + x) = ListBox1.List(i, 0) .Cells(DerniereLigne, 4 + x) = ListBox1.List(i, 2)

---

au premier tour de la boucle x=0
ce qui fait que les colonnes sont 3+0 et 4+0 (C et D)
au deuxieme tour x=2 ce qui fait 3+2 et 4+2 (E et F)
et ainsi de suite.

parfait
merci