Listbox_choix multiple

[Titou]

Bonjour,

je souhaite à partir d'une listbox à choix multiple, pouvoir renvoyer toute les valeurs séléctionnées et les coller à partir d'une cellule donnée

merci d'avance.

titou

 

[Titou]

Salut albert, sylsyl,

j'ai testé le code, ca marche à merveille! impecable, que dire de plus, c'est vraiment bien de pouvoir se faire aider par des personnes qui connaissent bien.

merci @ +, et merci d'avance pour la prochaine fois...

Titou

 

[LaurentTBT]

Bonjour à tous.

Je n'ai pas lu tout le fil en détail, mais voici comment aller directement sur la première case vide dans la colonne J, sans faire de boucle avec les offsets:
Range("J65536").end(xlup)
Je suppose que si les données doivent être inscrites à partir de J5, c'est qu'il y a un titre en J4 (sinon, il faut rajouter un test)

Cette façon de procéder permet d'arriver au résultat souhaité beaucoup plus facilement:

For i=0 To Listbox1.ListCount - 1
If Listbox1.Selected(i) = True Then range("J65536").end(xlup).offset(1,0)=listbox1.list(i)
next i

Voilà, c'était juste pour éviter la boucle et les select.

Bonne soirée, Laurent

 

[albert]

bonjour Titou, sylsyl, LaurentTBT ,
ce matin je regarde....

... je reste béat d'admiration sur la boucle imbriquée...

beau travail !!!

pour Titou, fais attention dans l'utilisation, les doublons ne sont pas filtrés

à +

ALBERT

 

[Titou]

Bonjour tout le monde

je vous remercie tous pour votre participation à mon post.

merci à tous

titou