Discussion :

[bosk1000]

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

[sabzzz]

bonjour bosk1000,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bosk1000]

excellent

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabzzz]

bonjour bosk1000,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bosk1000]

parfait
merci