Bonjour, je dois traiter des données assez rapidement et je n'y connais absolument rien en codage.
Sur la première feuille je dois copier plusieurs lignes (7 lignes sur 4 colonnes) puis les coller dans une seconde feuille en transposé puis déplacer les 3 lignes du dessous pour les aligner à la première ligne.
Et je veux répéter cette action en prenant les 7 prochaines lignes de la 1ière feuille !
voilà ce que j'obtiens en enregistrant mes actions :
Sub Nb_CPS_Replicats()
'
' Nb_CPS_Replicats Macro
'
'
Range("E5:H11").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D4:J6").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("K3:Q5")
Range("K4:Q5").Select
Selection.Cut Destination:=Range("R3:X4")
Range("R4:X4").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Selection.Cut Destination:=Range("Y3:AE3")
Range("Y3:AE3").Select
Sheets("Exported Labbook").Select
Range("E23:H29").Select
Selection.Copy
Sheets("Feuil1").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D5:J7").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("K4:Q6")
Range("K5:Q6").Select
Selection.Cut Destination:=Range("R4:X5")
Range("R5:X5").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Selection.Cut Destination:=Range("Y4:AE4")
Range("Y4:AE4").Select
End Sub
Y aurait-il quelqu'un pour m'aider à automatiser cette action ?
Merci
Sur la première feuille je dois copier plusieurs lignes (7 lignes sur 4 colonnes) puis les coller dans une seconde feuille en transposé puis déplacer les 3 lignes du dessous pour les aligner à la première ligne.
Et je veux répéter cette action en prenant les 7 prochaines lignes de la 1ière feuille !
voilà ce que j'obtiens en enregistrant mes actions :
Sub Nb_CPS_Replicats()
'
' Nb_CPS_Replicats Macro
'
'
Range("E5:H11").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D4:J6").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("K3:Q5")
Range("K4:Q5").Select
Selection.Cut Destination:=Range("R3:X4")
Range("R4:X4").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Selection.Cut Destination:=Range("Y3:AE3")
Range("Y3:AE3").Select
Sheets("Exported Labbook").Select
Range("E23:H29").Select
Selection.Copy
Sheets("Feuil1").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D5:J7").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("K4:Q6")
Range("K5:Q6").Select
Selection.Cut Destination:=Range("R4:X5")
Range("R5:X5").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Selection.Cut Destination:=Range("Y4:AE4")
Range("Y4:AE4").Select
End Sub
Y aurait-il quelqu'un pour m'aider à automatiser cette action ?
Merci