Bonjour,
Je tiens à préciser que je suis novice en macro sur excel.
J'ai créé une macro qui marche bien (en gros je copie les données en ligne depuis l'onglet "Data" dans l'onglet "Sheet1" afin de les transposer en colonne)
Donc données ligne 1 de l'onglet "Data" copiées en colonne dans l'onglet "Sheet1" (13 cellules) avec également quelques autres manips
Je souhaiterais voir cette macro se répéter pour la ligne suivante de l'onglet "Data"
Et ce jusqu'à la fin du tableau
Merci beaucoup par avance pour votre aide
voici ma macro :
-----------------------------
Sub Everything3()
'
' Everything3 Macro
'
' Keyboard Shortcut: Ctrl+w
'
ActiveCell.Range("A1:B1").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-5
ActiveCell.Offset(-13, 2).Range("A1:A13").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(13, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveCell.Offset(0, -2).Range("A1:B1").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=ActiveCell.Range("A1:B13"), Type:= _
xlFillCopy
ActiveCell.Range("A1:B13").Select
Sheets("Data").Select
ActiveCell.Offset(0, 2).Range("A1:M1").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(0, 1).Range("A1:M1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(13, -4).Range("A1").Select
End Sub
Je tiens à préciser que je suis novice en macro sur excel.
J'ai créé une macro qui marche bien (en gros je copie les données en ligne depuis l'onglet "Data" dans l'onglet "Sheet1" afin de les transposer en colonne)
Donc données ligne 1 de l'onglet "Data" copiées en colonne dans l'onglet "Sheet1" (13 cellules) avec également quelques autres manips
Je souhaiterais voir cette macro se répéter pour la ligne suivante de l'onglet "Data"
Et ce jusqu'à la fin du tableau
Merci beaucoup par avance pour votre aide
voici ma macro :
-----------------------------
Sub Everything3()
'
' Everything3 Macro
'
' Keyboard Shortcut: Ctrl+w
'
ActiveCell.Range("A1:B1").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-5
ActiveCell.Offset(-13, 2).Range("A1:A13").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(13, 0).Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
ActiveCell.Offset(0, -2).Range("A1:B1").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=ActiveCell.Range("A1:B13"), Type:= _
xlFillCopy
ActiveCell.Range("A1:B13").Select
Sheets("Data").Select
ActiveCell.Offset(0, 2).Range("A1:M1").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(0, 1).Range("A1:M1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveCell.Offset(13, -4).Range("A1").Select
End Sub
Pièces jointes
Dernière édition: