Discussion :

[bosk1000]

bonjour a tous

voila j'ai un code qui copie les cellule a2 à n100 d'un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks("LISTE.xls").Sheets("liste").Range("a2:n100").Copy Destination:=Workbooks("FACTURE 2009.xls").Sheets("SUIVLEGER").Range("a65536").End(xlUp)

mais je voudrais l'optimiser en copiant de a2 à la derniere ligne qui une valeur en n.

[laetitia]

bonjour bosk1000 le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks("LISTE.xls").Sheets("liste").Range("a2:n" & Range("n65536").End(xlUp).Row).Copy _
Destination:=Workbooks("FACTURE 2009.xls").Sheets("SUIVLEGER").Range("a65536").End(xlUp)(2)

j' ai rajoute a la fin du code (2) a adapter!!!

[bosk1000]

Merci leatitia

mais a quoi sert le (2) ?

[laetitia]

re bosk il sert seulement si tu voulais recopier a la suite dans ta feuille SUIVLEGER et non en a1

ps je me suis mal exprime comme tu la ecris la destination

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Destination:=Workbooks("FACTURE 2009.xls").Sheets("SUIVLEGER").Range("a65536").End(xlUp)

tu copy a partir de la derniere ligne pleine & non sur la premiere ligne vide
donc tu ecrase une ligne

tu voudrais copier toujours en a1 il faudrait ecrire comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Destination:=Workbooks("FACTURE 2009.xls").Sheets("SUIVLEGER").[a1]

[bosk1000]

effectivement j'ai oublié dans mon code de descendre d'une ligne.
j'avais déjà ce (2) mais je ne comprenais pas son utilité

merci