Bonjour à tous,
Comment remplacer toutes ces lignes par une boucle en sachant que je décale d'une ligne le départ et la destination de 12 colonnes
Je joins un fichier exemple au cas ou
Merci par avance
Comment remplacer toutes ces lignes par une boucle en sachant que je décale d'une ligne le départ et la destination de 12 colonnes
Je joins un fichier exemple au cas ou
Merci par avance
VB:
Sub Ecolonne()
Dim a As Long, b As Long
Range("N1:BU51") = ClearContents
Application.ScreenUpdating = False
For a = 0 To 50
StsBar strOps & "a=" & a
b = (a * 70)
'Comment remplacer toutes ces lignes par une boucle
'en sachant que je décale d'une ligne le départ et la destination de 12 colonnes
Range("N1:X1").Offset(a, 0).Value = Range("A2:K2").Offset(b, 0).Value
Range("Z1:AJ1").Offset(a, 0).Value = Range("A3:K3").Offset(b, 0).Value
Range("AL1:AV1").Offset(a, 0).Value = Range("A4:K4").Offset(b, 0).Value
Range("AX1:BH1").Offset(a, 0).Value = Range("A5:K5").Offset(b, 0).Value
Range("BJ1:BT1").Offset(a, 0).Value = Range("A6:K6").Offset(b, 0).Value
Next
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub