VBA - Copie d'une plage de donnée en fonc° longueur colonne
Bonjour,
Je souhaiterai que mon code VBA ci-dessous :
Copie la colonne en B13 (Onglet "Stock") et la colle en B10 (Onglet "R.Bo").
Cette partie là en vert fonctionne mais j'ai un problème sur la suivante.
Je veux copier la plage AA13:AC13 sur une longueur égale à celle copié précédement en B13 (Onglet "Stock")
Pour ensuite la coller en C10 (Onglet "R.Bo").
Cette partie fonctionne.
Sub Rotation_Bo()
Sheets("Stock").Select
Range("B13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.ScrollRow = 2615
ActiveWindow.ScrollRow = 2555
ActiveWindow.ScrollRow = 2108
ActiveWindow.ScrollRow = 1933
ActiveWindow.ScrollRow = 1344
ActiveWindow.ScrollRow = 1224
ActiveWindow.ScrollRow = 847
ActiveWindow.ScrollRow = 711
ActiveWindow.ScrollRow = 482
ActiveWindow.ScrollRow = 405
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 13
Range("A12").Select
Sheets("R.Bo.").Select
Range("B10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A9").Select
Sheets("1-Rotation").Select
Range("AA13:AC13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.ScrollRow = 2616
ActiveWindow.ScrollRow = 2571
ActiveWindow.ScrollRow = 1998
ActiveWindow.ScrollRow = 1777
ActiveWindow.ScrollRow = 1492
ActiveWindow.ScrollRow = 1031
ActiveWindow.ScrollRow = 855
ActiveWindow.ScrollRow = 586
ActiveWindow.ScrollRow = 477
ActiveWindow.ScrollRow = 256
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 13
Sheets("R.Bo.").Select
Range("C10").Select
ActiveSheet.Paste
Range("A9").Select
Sheets("1-Rotation").Select
Application.CutCopyMode = False
Range("A7").Select
End Sub
Je vous remercie par avance.
Cordialement.
Olivier
Toujours besoin d'aide ^^
Bonne journée à tous
bonjour
quel est le but de ton fichier ?
(car pour des stocks, on n'a pas besoin de VBA)
bonjour
la dur dur tu maitrise rien
voila un test a toi de voir si ça te va et de la modifier
A+
Maurice
Sub Rotation_Bo()
Sheets("Stock").Select
Nlig = Range("B" & Rows.Count).End(xlUp).Row ' evite la copy de 1048576 lignes
Range("B13:B" & Nlig).Copy
Sheets("R.Bo.").Range("B10").PasteSpecial Paste:=xlPasteValues
Sheets("1-Rotation").Select
Nlig = Range("AA" & Rows.Count).End(xlUp).Row ' ??????
Range("AA13:AC" & Nlig).Copy
Sheets("R.Bo.").Range("C10").PasteSpecial Paste:=xlPasteValues
Sheets("1-Rotation").Select
Application.CutCopyMode = False
Range("A7").Select
End Sub