Copy de cellule....

[Chris]

Re salut à tous....je desespere, personne n'arrive a m'aider....

Qui pourrais m'aider à déboger ma "line1", qui sert à copier une ligne sur une autre feuille....???

Sub retard()

Dim CEL1, incr1, j, i
incr = 8
j = 0
For i = 8 To 508
j = j + 1

CEL1 = Worksheets("feuil1").cell(i, 13)

If CEL1 = "RECU" Then goto line4
If CEL1 = "38016" Then goto line5
If CEL1 > 31 Then GoTo line1
If CEL1 > 62 Then GoTo line2
If CEL1 > 90 Then GoTo line3

line1:
Worksheets("feuil1").range((cell(i, 1), cell(i, 12)).Copy Destination:=Worksheets("retard").Range((cell(j,1),cell(j,12))


Next i

End sub


Merci pour votre aide.

Chris

 

[fred]

fais d'abord
un worksheets(feuil1).select
rows(xx).select
selection.Copy
sheets(feuil2).select
rows(yy).select
activesheet.paste

je l'ai fait ca marche