Transferer de feuille a feuille derniere ligne
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
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
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
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
3 réponses
-
Bonjour,
dermière ligne utilisée de la colonne B :
cells(rows.count,"B").end(xlup).row
eric
-
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 -
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 questionWith 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-
Il faut quand même que tu lises ce que tu écris et que tu te serves de ta tête...
Au 533ème post le B.A.BA devrait être acquis.
Est-ce que tu obtiens ce qui était prévu (ce qui m'étonnerait) ?
Si oui, considère que c'est bon tant que c'est le cas, si non considère que c'est mauvais.
D'autre part si la ligne est la même pour les 4 valeurs tu peux mettre son n° dans une variable et t'en servir ensuite.
eric -
-
