Boucle sur une ligne

Bonjour tout le monde

Je galère pour effectuer une boucle sur une ligne, et les exemples du net ne sont pas très parlant pour mon pauvre petit cerveau ^^

(autant sur plusieurs ligne pas de soucis mais la je sèche :p )

J'ai dans ma "feuil1", une liste d'élément sur la ligne 1 entre la colonne F et J.

Et des sheets dont les noms sont les mêmes que ceux de la liste de la Feuil1.

En gros, si l'un des noms de la liste et celui du sheet correspondent on copie/colle les valeurs de la colonne en dessous du nom de la liste dans l'onglet correspondant.

Ce n'est peut-être pas très clair, du coup je link un fichier pour montrer ce que j'aimerai avoir à la fin :p

(vous pouvez partir du principe que les onglets existent déjà )

Merci d'avance pour ceux qui me fileront un coup de main

ps: n'hésitez pas à me dire si ce n'est pas clair, comme je suis dessus depuis un moment, mes explications me semblent logiques alors que pas forcément :p

bonjour,

une proposition

Sub aargh()
    Set ws = Worksheets("Feuil1")
    dc = ws.Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 6 To dc
        With Worksheets(ws.Cells(1, i).Value)
            dl = ws.Cells(Rows.Count, i).End(xlUp).Row
            Range(ws.Cells(1, i), ws.Cells(dc, i)).Copy .Range("D1")
        End With
    Next i
End Sub

huuu! ça à l'air sympa, je m’entêtais avec un "for" imbriqué dans un "for each"

Comme quoi, j'ai bien fait de venir chercher de l'aide, ça m'ouvre de nouvelles perspectives à chaque fois!

je teste ça et je reviens rapidement :p

C'est impeccable! j'ai plus qu'à l'adapter à mon projet

Merci infiniment, j'vais retenir cette façon de faire pour les prochaines fois!

merci encore!