Petit problème copier/coller lignes

Bonjour les amis ,

Voila je suis confronté à un petit problème de copier/coller de ligne.

J'explique, j'ai deux feuilles dans mon classeur (BDD_Facturation et Feuille_Corbeille)

Je souhaite copier la ligne 3 de ma Feuille_Corbeille (sauf la cellule D3) dans la 1ere ligne libre de ma feuille BDD_Facturation.

Voila le code que j'ai :

Set ShSource as Worksheet

Set ShSource = Sheet ("Feuille_Corbeille")

ShSource.cells(3,A,B,C,E,F,G,H,I).text

ShSource.Rows(3).copy

Sheets ("BDD_Facturation").cells (3,A,B,C,E,F,G,H,I).Paste

Mais cela ne marche pas !!

Bonsoir,

Sheets("Feuille_Corbeille").Range("A3:c3").Copy Destination:=Sheets("BDD_Facturation").Range("a3")

Sheets("Feuille_Corbeille").Range("e3:I3").Copy Destination:=Sheets("BDD_Facturation").Range("e3")

çà devrait suffire

Amicalement

Claude

Bonjour Claude,

Tous d'abord merci d'avoir pris du temps pour me répondre.

Le code que tu me proposes fonctionne très bien, la copie se fait parfaitement sans la cellule D3.

Par contre a chaque fois que j'active ma macro, il écrase la ligne d'avant, dans la feuille de destination (BDD_Facturation). J'aimerai en fait qu'il copie la ligne dans la 1ere ligne de libre.

Ne faut-il pas rajouter une ligne du style :

i +1, 1

ou

End(xlUp).row ???

Amicalement

Arnaud

Bonjour à tous,

En ajoutant une variable

Sub ess()
Dim Lg%
    Lg = Sheets("BDD_Facturation").Range("A65536").End(xlUp).Row + 1

    Sheets("Feuille_Corbeille").Range("A3:c3").Copy Destination:= _
    Sheets("BDD_Facturation").Range("a" & Lg)

    Sheets("Feuille_Corbeille").Range("e3:I3").Copy Destination:= _
    Sheets("BDD_Facturation").Range("e" & Lg)
End Sub

Bonne journée

Claude

Parfait, cela correspond tous a fait à mes attentes.

Merci beaucoup claude