erreur macro

bonjour,

Range(Cells(5, c + 1),Cells(5, c + 1)).Select

A+

il y a plus simple

With Range(Cells(5, 3), Cells(45, 3))
.Copy Range(.Offset(0, 1), .Offset(0, 15))
End With

A+

Bonjour Jean Lluc

Remplace
Range(Cells(5, c + 1)).Select

Par

Cells(5, C + 1).Select


Salutations!


"Jean luc" <roi482@free.fr> a écrit dans le message de news: OHomGS73FHA.2432@TK2MSFTNGP10.phx.gbl...
Bonjour,
lorsque j'exécute la macro suivant j'ai l'erreur à la ligne "Range(Cells(5,c
+ 1)).Select"

Sub Macro1()

For c = 3 To 17
Range(Cells(5, c), Cells(45, c)).Copy
Range(Cells(5, c + 1)).Select
ActiveSheet.Paste
Next c

End Sub

Une solution?

JEAN LUC

Bonjour,
Merci j'ai modifié; voici la macro

Sub Macro1()
For c = 3 To 17 Step 1
Range(Cells(5, c), Cells(45, c)).Copy
Range(Cells(5, c + 1), Cells(5, c + 1)).Select
ActiveSheet.Paste
Next
End Sub

Par contre je copie toutes les colonnes en 1 seule fois alors qu'il faudrait
copier C5:C45 en D5:D45
si besoin D5:D45 en E5:E45
si besoin E5:e45 en F5: F45
ETC

MERCI
JEAN LUC

Adapte les solutions proposées en mettant des interrogations à l'utiisateur.

A+

Bonjour,
Merci j'ai modifié; voici la macro

Sub Macro1()
For c = 3 To 17 Step 1
Range(Cells(5, c), Cells(45, c)).Copy
Range(Cells(5, c + 1), Cells(5, c + 1)).Select
ActiveSheet.Paste
Next
End Sub

Par contre je copie toutes les colonnes en 1 seule fois alors qu'il faudrait
copier C5:C45 en D5:D45
si besoin D5:D45 en E5:E45
si besoin E5:e45 en F5: F45
ETC

MERCI
JEAN LUC

je ne comprend pas trop ce que tu veux dire