List box à initialiser

[arnaud]

Pour faire suite à ma question posée le 04-06-02 18:52 (7 sujets en dessous), je joins un fichier pour illustrer ma demande

Merci de votre aide

 

[STéphane]

pas sûr d'avoir compris


rajoute cette boucle
For Each cl In Worksheets(ListBox1.List(Boucle)).Range(Cells(1, 1), Cells(1, 256).End(xlToLeft))
i = i + 1: Worksheets("Feuil1").Cells(3 + i, NbSelect).Value = cl.Value
Next cl

(après l'instruction Worksheets("Feuil1").Cells(3, NbSelect).Value = _
ListBox1.List(Boucle) )

bye
stephane

 

[STéphane]

arnaud

j'ai pas eu le temps de chercher à comprendre.
j'ai juste travaillé pour que ton truc marche comme tu essayais de le faire initialement

bye
stephane