Sujet Précédent Sujet Suivant

Transferer de feuille a feuille derniere ligne

Résolu/Fermé
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - Modifié par pijaku le 17/06/2014 à 13:59
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 17 juin 2014 à 17:41
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
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
17 juin 2014 à 01:04
Bonjour,

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

eric
0
Réponse 2 / 3
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
Modifié par pijaku le 17/06/2014 à 13:59
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
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
17 juin 2014 à 09:08
Bonjour,

Non, ça te donne le n° de ligne. A tester : 
.Range("B" & .cells(rows.count,"B").end(xlup).row+1).Value = Worksheets("Facture_Devis").Range("L2")

eric
0
Réponse 3 / 3
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
Modifié par pijaku le 17/06/2014 à 13:59
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
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
17 juin 2014 à 15:24
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
0
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
17 juin 2014 à 17:41
Bonjour
oui ça marche bien comme c'est mais la question etait est ce qu'on peut faire plus court
donc tu as repondu
merci
mais ce que j ai ecrit n'apparait ps en entier c'est pour ça
merci encore
ma tete va mieux
a bientot
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
grille de points pour belote
portos54 -
antoine.let -

7 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses