XL 2010 copier et coller vers autre page et à la suite

Calvus à dit:

Bonjour,

Voici, si j'ai bien tout compris, car il est assez difficile de faire moins clair comme demande...

VB:

Option Explicit

Sub copie()
Dim f As Worksheet, f1 As Worksheet, i As Byte, j As Byte

Set f = Sheets("Feuil1")
Set f1 = Sheets("Feuil2")

j = f1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
For i = 8 To f.Cells(Rows.Count, 3).End(xlUp)
    If f.Cells(i, 3) <> "" Then
        f1.Cells(j, 2) = f.Cells(i, 2)
        f1.Cells(j, 3) = f.Cells(i, 3)
        f1.Cells(j, 4) = f.Cells(i, 4)
        f1.Cells(j, 5) = f.Cells(i, 5)
        j = j + 1
    End If
Next i
End Sub

A+

Cliquez pour agrandir...

Calvus à dit:

Bonsoir,

Voici
Cliquer sur le bouton rouge.

VB:

Sub Transfer()

Range(Range("B" & Rows.Count).End(xlUp), Range("B" & Rows.Count).End(xlUp).Offset(, 7)).Copy _
Destination:=Feuil2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

A+

Cliquez pour agrandir...

Calvus à dit:

Bonsoir,

Voici
Cliquer sur le bouton rouge.

VB:

Sub Transfer()

Range(Range("B" & Rows.Count).End(xlUp), Range("B" & Rows.Count).End(xlUp).Offset(, 7)).Copy _
Destination:=Feuil2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

End Sub

A+

Cliquez pour agrandir...

MOEZ-TUN à dit:

Bonjour
J'utilisé cet macro pour mes besoins, mais je veux que la ligne doit supprimer après la collage des cellules.
Merci

Cliquez pour agrandir...