Alléger code

[Citaro]

Bonjour,
Je cherche un solution pour alléger ce code

Private Sub Worksheet_Activate()
Range("G5001") = Sheets("Données").Range("A2")
Range("G5002") = Sheets("Données").Range("A3")
Range("G5003") = Sheets("Données").Range("A4")
Range("G5004") = Sheets("Données").Range("A5")
Range("G5005") = Sheets("Données").Range("A6")
Range("G5006") = Sheets("Données").Range("A7")
Range("G5007") = Sheets("Données").Range("A8")
Range("G5008") = Sheets("Données").Range("A9")
Range("G5009") = Sheets("Données").Range("A10")
Range("G5010") = Sheets("Données").Range("A11")
Range("G5011") = Sheets("Données").Range("A12")
Range("G5012") = Sheets("Données").Range("A13")
Range("G5013") = Sheets("Données").Range("A14")
Range("G5014") = Sheets("Données").Range("A15")
Range("G5015") = Sheets("Données").Range("A16")
Range("G5016") = Sheets("Données").Range("A17")
Range("G5017") = Sheets("Données").Range("A18")
Range("G5018") = Sheets("Données").Range("A19")
Range("G5019") = Sheets("Données").Range("A20")
Range("G5020") = Sheets("Données").Range("A21")
Range("G5021") = Sheets("Données").Range("A22")
Range("G5022") = Sheets("Données").Range("A23")
Range("G5023") = Sheets("Données").Range("A24")
Range("G5024") = Sheets("Données").Range("A25")
Range("G5025") = Sheets("Données").Range("A26")
Range("G5026") = Sheets("Données").Range("A26")
Range("G5027") = Sheets("Données").Range("A27")
Range("G5027") = Sheets("Données").Range("A28")
Range("G5028") = Sheets("Données").Range("A29")
Range("G5029") = Sheets("Données").Range("A30")
Range("G5030") = Sheets("Données").Range("A31")
Range("G5031") = Sheets("Données").Range("A32")
Range("G5032") = Sheets("Données").Range("A33")
Range("G5033") = Sheets("Données").Range("A34")
Range("G5034") = Sheets("Données").Range("A35")
Range("G5035") = Sheets("Données").Range("A36")
Range("G5036") = Sheets("Données").Range("A37")
Range("G5037") = Sheets("Données").Range("A38")
Range("G5038") = Sheets("Données").Range("A39")
Range("G5039") = Sheets("Données").Range("A40")
Range("G5040") = Sheets("Données").Range("A41")
Range("G5041") = Sheets("Données").Range("A42")
Range("G5042") = Sheets("Données").Range("A43")
Range("G5043") = Sheets("Données").Range("A44")
Range("G5044") = Sheets("Données").Range("A45")
Range("G5045") = Sheets("Données").Range("A46")
Range("G5046") = Sheets("Données").Range("A47")
Range("G5047") = Sheets("Données").Range("A48")
Range("G5048") = Sheets("Données").Range("A49")
Range("G5049") = Sheets("Données").Range("A50")
Range("G5050") = Sheets("Données").Range("A51")

End Sub

Merci

 

[phlaurent55]

Re : Alléger code

Bonjour Citaro,

Private Sub Worksheet_Activate()
Sheets("Données").Range("A2:A51").Copy Destination:=Range("G5001")
End Sub

à+
Philippe

 

[phlaurent55]

Re : Alléger code

Re,

ou avec ceci:

Private Sub Worksheet_Activate()
For i = 1 To 50
Cells(i + 5000, 7) = Sheets("Données").Cells(i + 1, 1)
Next i
End Sub

à+
Philippe

 

[Citaro]

Re : Alléger code

Philippe, merci pour ton aide, après essai je prends le 1ere solution qui est plus rapide

Bon weekend

Citaro

PS: je viens de consulter tes créations, bravo