A arnaud Guest 5 Juin 2002 #1 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
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
S STéphane Guest 5 Juin 2002 #2 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 Vote positif 0 Vote négatif
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
S STéphane Guest 5 Juin 2002 #3 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 Vote positif 0 Vote négatif
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