copier listes les une en dessous des autres

[romainchu78]

Bonjour a tout le forum,
J'ai deux listes de donnees que je souhaiterais copier les une en dessous des autres a l'aide d'une macro.
comment savoir la ligne de debut de la deuxieme liste en dessous le premiere liste. la taille des listes peuvent change bien sur.
en piece jointe un fichier model.
merci par avance.

 

[ERIC S]

Re : copier listes les une en dessous des autres

Bonsoir

code

nouvligne=range("A65536").End(xlUp).Row+1

te donne le numéro de la ligne vide

utiliser un cells(nouvligne,1).select pour pointer

 

[romainchu78]

Re : copier listes les une en dessous des autres

bonsoir eric,
merci pour ton aide.
je ne peux pas mixer les range (copier liste) et les cellules (coller liste).
j'ai un code du genre:

nouvligne = Range("B65536").End(xlUp).Row + 1

wbk1.Sheets("temp").Range("A:L").Copy Destination:=wbk1.Sheets("comparison").Cells(nouvligne, 1)

As-tu une idee ?

 

[ERIC S]

Re : copier listes les une en dessous des autres

re

pas trop le temps maintenant mais regarde en limitant ta zone de départ, là tu sélectionnes des colonnes entières...

tu peux déterminer la fin de ton tableau

méthode: derligne= range("A65536).end...
puis
wbk1.Sheets("temp").Range("A1:L" & derligne).

 

[Bebere]

Re : copier listes les une en dessous des autres

bonsoir Romainchu,Eric

With Sheets("depart")
.Range("A2:K" & .Range("A65536").End(xlUp).Row).Copy Destination:=Sheets("resultat"). _
Range("A" & Sheets("resultat").Range("A65536").End(xlUp).Row + 1)
End With

à bientôt

 

[romainchu78]

Re : copier listes les une en dessous des autres

effectivement ca marche.
merci les gens