transferer de feuille a feuille derniere ligne Résolu/Fermé

Question

Bonjour, 
j ai un soucis avec 2 feuilles 
je voudrais transférer les données d'une feuille "Facture_devis" a feuille "Factures"
j'ai fait 
With Worksheets("Factures")
   .Range("B2").Value = Worksheets("Facture_Devis").Range("L2")
  .Range("C2").Value = Worksheets("Facture_Devis").Range("A10")
'etc .etc
End With
ce qui copie toujours dans la même ligne
comment copier dans la rangée dernière ligne?
j ai toujours fait copier d'un userform mais jamais de feuille a feuille
merci de votre aide 
Slts               A bientôt 
Surplus

eriiic · Answer

Bonjour,

dermière ligne utilisée de la colonne B :
cells(rows.count,"B").end(xlup).row

eric

surplus · Answer

Bonjour
donc je devrais faire? 
With Worksheets("Factures")
cells(rows.count,"B").end(xlup).row .Value = Worksheets("Facture_Devis").Range("L2")
cells(rows.count,"C").end(xlup).row.Value=Worksheets("Facture_Devis").Range("A10")
'etc .etc
End With 
 je pense que c est pas correct 
Slts               A bientôt 
Surplus

surplus · Answer

Bonjour
C'est bon ça fonctionne
j'ai mis comme ca mais c'est long comme formule ou je me trompe je me pose la question
With Worksheets("Factures")
   .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Value = Worksheets("Facture_Devis").Range("K2")
   .Range("B" & .Cells(Rows.Count, "A").End(xlUp).Row).Value = Worksheets("Facture_Devis").Range("L2")
   .Range("C" & .Cells(Rows.Count, "A").End(xlUp).Row).Value = Worksheets("Facture_Devis").Range("A10")
   .Range("D" & .Cells(Rows.Count, "A").End(xlUp).Row).Value = Worksheets("Facture_Devis").Range("A11")
End With 
est ce juste?
Slts               A bientôt 
Surplus

Transferer de feuille a feuille derniere ligne

3 réponses

Discussions similaires