collage spécial aprés un boucle

oléanor · 19 Juillet 2008

Bonjour,

je m'explique je cherche a copier des informations contenue dans plusieurs cellule dans une base de donné.
information contenue dans la feuille 1 est devant ce placer en dessous de la derniére valeur de ma base de donnée (feuille 2) probléme il me copie les bordures avec et j'en veut pas .

avec selection.pastespecial il bug
et je trouve pas la solution si vous pouvez m'aider merci d'avance

oléanor · 20 Juillet 2008

Re : collage spécial aprés un boucle

je croit que j'ai réussit à le mettre en fichier joint

d'avance merci BEAUCOUP

skoobi · 20 Juillet 2008

Re : collage spécial aprés un boucle

Re,

remplace:
sh2.Range("A2").End(xlDown).Offset(1, 0).Resize(1, 4).Value = sh1.Range("C7:F7").Value
par:
sh2.Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 4).Value = sh1.Range("C7:F7").Value

oléanor · 21 Juillet 2008

Re : collage spécial aprés un boucle

merci beaucouuuuuuuuuuuup ca marche

collage spécial aprés un boucle

oléanor

XLDnaute Nouveau

oléanor

XLDnaute Nouveau

Pièces jointes

skoobi

XLDnaute Barbatruc

oléanor

XLDnaute Nouveau

Discussions similaires