Copier le contenu d'une listbox a partir de B10

[Pierre]

Bonjour le Forum,

Je me demandais s'il existe une commande simple pour :

j'ai une listbox avec n elements dans un userform. Je souhaite seulement copier les élements de la listbox a partir de la cellule B10 (par exemple). Si j'ai 3 éléments, les cases B10, B11 et B12 devront se remplir.

Je pensais que cela fonctionnerai:

range('B10:B' & listbox.count + 10).value = listbox.value

MAIS NON....

Est ce qu'il y aurait quelqu'un qui connaitrait l'astuce?
Merci de votre aide.

Pierre

 

[Robert]

Bonsoir Pierre, bonsoir le forum,

Essaie ce code :

For x = 0 To ListBox1.ListCount - 1
Cells(x + 10, 2).Value = ListBox1.List(x)
Next x

 

[Pierre]

Merci Robert,

Je pensais que je pouvais m'en tirer sans boucle mais s'il n'y a pas d'autre solution let's go... ce n'est que trois lignes.
Merci

Pierre-Yves

 

[Robert]

Bonsoir Pierre-Yves, bonsoir le forum,

Mais je suis bête car tu paux le faire sans boucle bien sûr :

Range('B10:B' & 10 + ListBox1.ListCount - 1).Value = ListBox1.List()