Copier une macro

[Nitrog]

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

 

[astralon]

Re : Copier une macro

Bonjour

est-ce que c'est pas une base comme ceci que tu aurais besoin ?

Bien à toi

Dim n
n = 500
Do
Fin = [A65536].End(xlUp).Row
Range("A" & Fin + 1, "T" & Fin + 1).Insert Shift:=xlDown
Range("A" & Fin, "T" & Fin).Copy Cells(Fin + 1, "A")
n = n - 1
Loop While n = 0

 

[Nitrog]

Re : Copier une macro

Merci astralon,

Elle est un peu compliquée pour moi ta réponse, et je ne sais pas ou je doit l'ajouter, en fait ce que je voudrai, c'est faire un copier coller qui reprenne ma macro avec le décallage de lignes,

exemple:
Sheets("Actuel").Select
Rows("3:3").Select
devienne:
Sheets("Actuel").Select
Rows("4:4").Select
etc.

Merci pour votre aide

Nitrog

 

[jp14]

Re : Copier une macro

Bonjour

Au lieu d'utiliser une valeur
Sheets("Actuel").Select
Rows("3:3").Select

ecrire
i = i+1
Sheets("Actuel").Select
Rows(i).Select

JP

 

[Nitrog]

Re : Copier une macro

Re bonjour,

Je viens d'essayer mais sa ne marche pas, dans la macro je prend les données sur la feuille offres pour insérer les ligne de la feuille actuel et effectuer la différence entre les 2.

Je sais pas si je suis assez clair sur ce que je veux ??

Nitrog