Bonsoir à toutes et à tous,
je suis probablement fatigué... mais je bloque sur un code depuis quelques heures.
Je souhaite copier une cellule dans une range sur une autre feuille plusieurs fois à la suite.
Pour l'instant j'ai le code suivant:
Si quelqu'un avait la bonté d'éclairer ma route, je vous en serai reconnaissant.
A+
Matt
je suis probablement fatigué... mais je bloque sur un code depuis quelques heures.
Je souhaite copier une cellule dans une range sur une autre feuille plusieurs fois à la suite.
Pour l'instant j'ai le code suivant:
VB:
Dim x As Long
Dim y As Long
Dim z As Long
Dim LastRPreTCD As Long
Dim LastCData As Long
LastRPreTCD = Sheets("PRETCD").Cells(Sheets("PRETCD").Rows.Count, "A").End(xlUp).Row
LastCData = Sheets("DATA").Cells(1, Sheets("DATA").Columns.Count).End(xlToLeft).Column
x = (LastCData - 1) * (LastRPreTCD - 1)
For z = 2 To LastCData
For y = 2 To x Step 21
Sheets("DATA").Cells(1, z).Copy Sheets("PRETCD").Range(Cells(y, 12), Cells(y + 22, 12))
Next
Next
Si quelqu'un avait la bonté d'éclairer ma route, je vous en serai reconnaissant.
A+
Matt