Transférer le contenu ListBox

Bonjour à tous,

Je voudrai transférer le contenu de ma listBox qui contient 6 colonnes que je voudrai transférer sur une feuill.

*J'ai fait des recherches rien ne me convient pour transférer le 6 colonnes.

Si quelqu'un pouvait m'aider se serait très gentil de sa part.

Merci d'avance

Amicalement

Noel

Bonjour,

et comment rempli tu ta listbox ?

Bonjour Pierre,

Je le rempli par "RowSource"

@+

Amicalement

Noel

Bonjour,

A tester :

Private Sub CommandButton1_Click()
Dim i As Integer
    With Me.ListBox1
        If .ListIndex < 0 Then Exit Sub
        For i = 0 To .ColumnCount - 1
            Worksheets("Feuil1").Cells(i + 1, 1) = .List(Me.ListBox1.ListIndex, i)
        Next i
    End With
End Sub

A+

Bonjour,

Sheets("result").[A2].Resize(Me.ListBox1.ListCount, 6) = Me.ListBox1.List

Ceuzin

Bonjour Frangy,

Bonjour Ceuzin,

Merci pour vos deux codes.

Celui de Ceuzin a l'air de fonctionner. Au 1er click sur le bouton il me copie les données sur les 6 colonnes mais il m'affiche les chiffres en alphanumérique. Je Dirai c'est presque ça mais je sui obligé de cliquer une 2ème fois pour qu'il continue jusqu'à la fin du code.

Celui de Frangy, déjà il ne bug pas mais ne me copie rien sur ma feuille.

Je vous transmets le code que j'ai mis dans mon bouton.

Private Sub Btransf_Click()
Sheets("feuil1").[E2].Resize(Me.ListBox1.ListCount, 6) = Me.ListBox1.List
Range("D2") = ComboBox1
Range("K2") = TextBox4
Range("L2") = TextBox5
Range("M2") = TextBox6
Range("N2") = TextBox7
End Sub

Merci de votre aide chers forumeurs.

Amicalement

Noel

Bonjour

Si tu peux mentionner le range source et le range destinataire

RowSource= "...."

destinataire= range("...")

Bonjour Amir,

Je ne comprend trop ce que tu me demandes car tout est dans le code plus haut.

La source c'est dans une feuille de données de e2:k29

@+

Amicalement

Noel

Bonjour à tous,

Je pense avoir trouvé la solution

Merci à vous 3

Amicalement

Noel