Nitrog
XLDnaute Junior
Bonjour le forum,
Est-il possible de copier une macro en respectant le décalage de ligne, je désir que la macro annexée soit copiée jusqu'a la ligne 500.
Sheets("offre").Select
Cells.Select
Selection.Copy
Sheets("Comparatif").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Actuel").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Comparatif").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Selection.Interior.ColorIndex = xlNone
Range("A5").Select
ActiveCell.FormulaR1C1 = "=+IF(R[-2]C=R[-1]C,"" "",(R[-2]C-R[-1]C))"
Range("A5").Select
Selection.Copy
Range("B5:Z5").Select
ActiveSheet.Paste
Et comme je suis un peu fénéant je me permet de vous demander si il a pas un truc ??
Merci d'avance pour votre aide.
Nitrog
Est-il possible de copier une macro en respectant le décalage de ligne, je désir que la macro annexée soit copiée jusqu'a la ligne 500.
Sheets("offre").Select
Cells.Select
Selection.Copy
Sheets("Comparatif").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Actuel").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Comparatif").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Selection.Interior.ColorIndex = xlNone
Range("A5").Select
ActiveCell.FormulaR1C1 = "=+IF(R[-2]C=R[-1]C,"" "",(R[-2]C-R[-1]C))"
Range("A5").Select
Selection.Copy
Range("B5:Z5").Select
ActiveSheet.Paste
Et comme je suis un peu fénéant je me permet de vous demander si il a pas un truc ??
Merci d'avance pour votre aide.
Nitrog