PB listbox

[pilou]

Bonsoir à tous,

J'ai une listbox (dont je ne connais pas le nombre d'éléments par avance) et je souhaite allez recopier chaque élément sur une feuille.

Merci d'avance de votre contribution.

 

[Hervé]

Bonsoir

Pas facile de te répondre avec le peu d'élément que tu nous laisse, mais ce code renboi les données d'une listbox vers la colonne B :

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
Range('b' & i + 1) = ListBox1.List(i)
Next i
end sub

Salut

 

[pilou]

Merci Hervé
Avec mon impatience de trouver la solution, j'ai oublié de dire que ma listbox avait 3 colonnes.
Si cela n'est pas trop te demander.
(en fait je voudrais ecrire 1ère colonne listbox en A, 2ème en B et 3ème en c)
Merci.

 

[Hervé]

re

Alors comme ca :

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
Range('a' & i + 1) = ListBox1.List(i, 0)
Range('b' & i + 1) = ListBox1.List(i, 1)
Range('c' & i + 1) = ListBox1.List(i, 2)
Next i

End Sub

En espérant t'avoir répondu, sinon tu connais l'adresse 🙂

Salut

 

[pilou]

Merci Hervé pour ta rapidité et ton efficacité.

c'est exactement ce que je cherchais bêtement depuis une 1/2 heure avec une tonne de lignes inutiles.

Merci encore et bonsoir à tous !

 

[myDearFriend!]

Bonsoir Pilou, Hervé.

Pour info, on peut aussi faire comme ça :

With ListBox1
      Range(Cells(1, 1), Cells(.ListCount, .ColumnCount)).Value = ListBox1.List
End With

Cordialement.

 

[pilou]

Un grand merci (un peu tardif mais très sincère) à Hervé et à MydearFriend pour leurs réponses à mon problème.

Bonsoir à tous.