Bonjour à tous,
Je souhaiterai mettre en place une petite macro qui fait une boucle mais je ne sais pas comment faire.
Concrètement, je souhaite :
- copier la ligne (B7:G7) de la feuille ORDA
- la coller en (C3:H3) de la feuille TCD
- recopier la ligne 46 fois en (C3:H49)
puis
- copier la ligne (B8:G8) de la feuille ORDA
- la coller en (C50:H50) de la feuille TCD
- recopier la ligne 46 fois en (C50:H96)
et recommencer l'opération 137 fois (colonne INDEX)
J'ai enregistré une petite macro en manuel pour les trois premières lignes mais ce serait trop long pour le faire 137 fois.
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("ORDA").Select
Range("B7:G7").Select
Selection.Copy
Sheets("TCD").Select
Range("C3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C3:H49"), Type:=xlFillDefault
Range("C3:H49").Select
Sheets("ORDA").Select
Range("B8:G8").Select
Selection.Copy
Sheets("TCD").Select
Range("C50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C50:H96"), Type:=xlFillCopy
Range("C50:H96").Select
Sheets("ORDA").Select
Range("B9:G9").Select
Selection.Copy
Sheets("TCD").Select
Range("C97").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C97:H143"), Type:=xlFillCopy
Range("C97:H143").Select
End Sub
Auriez-vous une solution pour créer une boucle qui répète l'opération en fonction du chiffre présent dans la colonne Index?
Merci d'avance les amis
Je souhaiterai mettre en place une petite macro qui fait une boucle mais je ne sais pas comment faire.
Concrètement, je souhaite :
- copier la ligne (B7:G7) de la feuille ORDA
- la coller en (C3:H3) de la feuille TCD
- recopier la ligne 46 fois en (C3:H49)
puis
- copier la ligne (B8:G8) de la feuille ORDA
- la coller en (C50:H50) de la feuille TCD
- recopier la ligne 46 fois en (C50:H96)
et recommencer l'opération 137 fois (colonne INDEX)
J'ai enregistré une petite macro en manuel pour les trois premières lignes mais ce serait trop long pour le faire 137 fois.
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("ORDA").Select
Range("B7:G7").Select
Selection.Copy
Sheets("TCD").Select
Range("C3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C3:H49"), Type:=xlFillDefault
Range("C3:H49").Select
Sheets("ORDA").Select
Range("B8:G8").Select
Selection.Copy
Sheets("TCD").Select
Range("C50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C50:H96"), Type:=xlFillCopy
Range("C50:H96").Select
Sheets("ORDA").Select
Range("B9:G9").Select
Selection.Copy
Sheets("TCD").Select
Range("C97").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("C97:H143"), Type:=xlFillCopy
Range("C97:H143").Select
End Sub
Auriez-vous une solution pour créer une boucle qui répète l'opération en fonction du chiffre présent dans la colonne Index?
Merci d'avance les amis