Contenu listbox sur meme ligne

[fradouan]

bonsoir à toutes et à tous,
svp je cherche le code vba pour pouvoir transférer le contenu d'une listbox sur la même dernière ligne vide d'une feuil.
merci.

 

[Hervé]

Re : Contenu listbox sur meme ligne

bonsoir

essaye quelque chose comme ceci :

Dim derligne As Long

derligne = Range("a65536").End(xlUp).Row + 1

Range(Cells(derligne, 1), Cells(derligne, ListBox1.ListCount)) = ListBox1.Column

si j'ai bien compris

salut

 

[fradouan]

Re : Contenu listbox sur meme ligne

tres gentil j'esseye et je reviens

 

[fradouan]

Re : Contenu listbox sur meme ligne

Voici un fichier joint ca ne marche pas comme je veux

 

[kjin]

Re : Contenu listbox sur meme ligne

bonsoir,

Range(Cells(derligne, 1), Cells(derligne, ListBox1.ColumnCount)) = ListBox1.List

A+
kjin

 

[fradouan]

Re : Contenu listbox sur meme ligne

re,
il ya encore quelque chose qui cloche juste la 1ere ligne de la listbox qui se reporte sur la feuil.
merci

 

[kjin]

Re : Contenu listbox sur meme ligne

Re,
Ah oui, avec plusieurs lignes, ça change tout évidemment, désolé

Private Sub ComdOk_Click()
Dim DernLign As Long
With Feuil2
    For i = 0 To ListBox1.ListCount - 1
    derligne = Range("a65536").End(xlUp).Row + 1
        For j = 0 To ListBox1.ColumnCount - 1
        Cells(derligne, j + 1) = ListBox1.List(i, j)
        Next
    Next
End With

End Sub

A+
kjin