L laure Guest 8 Juillet 2005 #1 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...
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 XLDnaute Impliqué 8 Juillet 2005 #2 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 Vote positif 0 Vote négatif
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
A arnaud Guest 8 Juillet 2005 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Impliqué 8 Juillet 2005 #4 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc Repose en paix 8 Juillet 2005 #5 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) Cliquez pour agrandir... Message édité par: Robert, à: 08/07/2005 22:05 Vote positif 0 Vote négatif
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) Cliquez pour agrandir... Message édité par: Robert, à: 08/07/2005 22:05