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

[Hafi.alaoui]

Bonjour
merci de m'aider de trouver un code
pour copier des cellules feuil1"C8:E19") vers feuil2, et incrémenter la suite feuil1"C8:E19")vers feuil2 après un clearcontent du feuil1
merci

 

[Hafi.alaoui]

Bonjour,

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

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+

Bonjour
si par contre je veux seulement
transférer seulement le dernier ligne de la feuille1 vers la feuille2, seulement le dernier ligne écrite comment puis-je faire?
voiçi mon fichier joint

 

[Calvus]

Bonsoir,

Voici
Cliquer sur le bouton rouge.

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+

 

[Hafi.alaoui]

Bonsoir,

Voici
Cliquer sur le bouton rouge.

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+

Bonsoir,

Voici
Cliquer sur le bouton rouge.

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+

oui ça marche très bien merci beaucoup frère

 

[MOEZ-TUN]

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

 

[yahya belbachir]

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

quel ligne voulez vous supprimer!

 

[MOEZ-TUN]

Bonjour

Je veux supprimer la ligne après transfert ces données à la deuxième feuille

Merci

 

[MOEZ-TUN]

bonjour
Je veux supprimer la ligne qui on va la copier.

Exemple dans cette cas on veut supprimer la ligne 8 :

Merci

 

[yahya belbachir]

fais directement dans le code
.clearcontents

 

[MOEZ-TUN]

Bonjour
se fonctionne bien , mais pour la supprimer on doit utiliser .Delete.
Merci pour votre support.