Récupérer les items dans une listbox pour les copier dans Excel

[Kristel]

Bonjour à nouveau à tout le forum !

J'ai à nouveau un petit problème...

J'ai créé un userform, dans lequel se trouvent deux listbox.

Le but, c'est que l'utilisateur sélectionne un item et en cliquant sur un bouton, il apparaît dans la listbox2. Ca, c'est ok.

Maintenant c'est là qu'arrive mon problème. J'aimerais prendre tous les items de la listbox2 et les copier dans Excel. J'ai utilisé ce code :

For i = 0 To 8
Sheets("Groups").Select
Sheets("Groups").Cells(a, b) = Me.ListBox_ProduitsFinal.List(i)
b = b + 1
Next i

Il fonctionne très bien à condition qu'il y ait 9 items. pas un de plus, pas un de moins.

Comment pourrais-je faire pour que ça fonctionne avec un seul item comme avec 9 ?

merci d'avance pour votre aide
Kristel

 

[Kristel]

Re : Récupérer les items dans une listbox pour les copier dans Excel

Salut Jean-Marcel,

Merci infiniment pour ta réponse, ça fonctionne parfaitement !

Bonne après-midi !
Kristel