Transfert listbox vers feuille

Bonjour

Via un formulaire, je souhaiterai transférer les valeurs d'une listbox vers la feuille 9

Pas de souci pour la première colonne de la listbox vers la 2° colonne de la feuille

Sheets(9).Range(Cells(2, 2), Cells(2 + ListBox1.ListCount, 2)) = ListBox1.List 

Le souci vient du transfert des autres colonnes, à savoir :

* 3° colonne de la Listbox vers la 3 ° colonne de la feuille

* 5° colonne de la Listbox vers la 4° colonne de la feuille

désolé, impossible immédiatement de vous fournir un fichier épuré ...

Merci d'avance

Cherchez pas, j'ai enfin trouvé (je crois)

Une simple boucle de type

L = 2

For i = 0 To ListBox1.ListCount - 1

Sheets(9).Cells(2, 3) = ListBox1.List(i, 2)

L = L + 1

Next i

Je crois pouvoir m'en sortir

Scusez du dérangement

Bonne soirée

Rechercher des sujets similaires à "transfert listbox feuille"