boucler sur des feuilles pour obtenir des colonnes

[albert]

Bonsoir à tous, forumiens, forumiennes,

Je cherche depuis un moment à résoudre cette boucle,… réticente...

Elle boucle plusieurs fois sur la même colonne, alors que je cherche à obtenir une colonne pour chaque page :
Colonne B = Feuil1
Colonne C = Feuil2…etc
J’ai essayé plusieurs solutions et ça ne marche pas…

Puis-je avoir de l’aide ??

Merci d’avance

Albert

Mon code
Sub étudeboucle()
c = Sheets.Count
For d = 2 To 5
For i = 2 To c
Sheets(i).Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Graph").Select
Cells(2, d + 1).Select
ActiveSheet.Paste
Next
Next
End Sub

 

[brett]

trop facile, tu as une boucle for qui ne sert à rien,
voici ton code qui fonctionne :

Sub étudeboucle()

Dim c, i As Integer

c = Sheets.Count
For i = 2 To c
Sheets(i).Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Graph").Select
Cells(2, i).Select
ActiveSheet.Paste
Next i
End Sub

a+

brett

 

[albert]

merci brett,
ce n'est pas la première fois que je me prends les pieds dans l'tapis en combinant deux boucles... il faut que je m'en souvienne à l'avenir

cordialement
albert