copier-coller

[laure]

Bonjour a tous!
Je souhaiterais au sein d'une boucle, selectionner la k° ligne, la copier, et la coller dans la première ligne d'une autre feuille, d'un meme classeur.
bon après-midi
Amicalement...

 

[deudecos]

Bonjour Laure, le forum,

Et bien pour copier ta Keme cellule :

Sheets('Feuil1').range('Keme').select
Selection.copy

et pour coller dans une autre feuille :

Sheets('Feuil2').range('A1').select
ActiveSheet.Paste

Le tout bien sur, dans le meme module

Bonne soiree

Olivier

 

[arnaud]

Si je me trompe pas deudecos, la formule que tu donne permet de compier une cellule.
Pour copier la ligne, essaie plutôt

Sheets('Feuil1').rows(keme).select
Selection.copy

Sheets('Feuil2').rows(1).select
ActiveSheet.Paste

Bonne soirée à tous

 

[deudecos]

Bonsoir arnaud, le forum,

Tu as raison, je ne m'en etait pas rendu compte... :unsure:

C'est l'effet 'apero' :lol:

Bonne soiree

Olivier

 

[Robert]

Bonsoir Laure, Arnaud, Deudecos, bonsoir le forum,

Pourquoi ne pas simplifier et éviter les Select qui ralentissent l'éxécution :

Sheets('Feuil1').Rows(k).Copy Destination:=Sheets('Feuil2').Rows(1)

Message édité par: Robert, à: 08/07/2005 22:05