votre aide pour modifier cette macro

[rafii]

Bonjour a tous, je suis débutant sur ce forum.
alors mon probleme est le suivant :
j'ai mis dans la feuille 1 trois lignes pleines de données et dans la feuille 2
j'ai voulu doubler ces données mais y a que la 3 ligne qui se met en double.
je cherche donc à realiser à l'aide d'un clic sur le bouton macro , le doublage de toute une liste emise dabns la feuille 1.
j'espere etre clair et je vous remercie.

 

[ERIC S]

Re : votre aide pour modifier cette macro

Bonjour

a essayer, si j'ai bien compris

derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
Sheets("Feuil1").Range("A4:AU" & derligne).Copy Sheets("Feuil2").Range("A4")
derligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row
For i = derligne To 4 Step -2
Rows(i + 1).Insert Shift:=xlDown
Range("A" & i & ":L" & i).Copy Range("A" & i + 1 & ":L" & i + 1)
Range("A" & i & ":L" & i).Copy Range("A" & i + 1 & ":L" & i + 1)
Range("H" & i + 1) = 2
Range("M" & i + 1) = 0
Range("N" & i + 1) = Range("L" & i)
Range("O" & i + 1) = 1
Range("P" & i + 1) = 0
Range("Q" & i + 1) = Range("L" & i)
Range("T" & i + 1) = Range("AF" & i)
Range("V" & i & ":AE" & i).Copy Range("V" & i + 1 & ":AE" & i + 1)
Range("AF" & i + 1) = Range("T" & i)
Range("AG" & i & ":AU" & i).Copy Range("AG" & i + 1 & ":AU" & i + 1)
i = i + 1
Next i
Sheets("Feuil2").Range("L:N,P:Q").NumberFormat = "#,##0.00"
Sheets("Feuil2").Columns("A:AU").EntireColumn.AutoFit

Application.ScreenUpdating = True

 

[rafii]

Re : votre aide pour modifier cette macro

Bonjour, et merci d'avance pour ton aide .
c'est super sympa de ta part.
A une prochaine fois .