OVH Cloud OVH Cloud

copier

4 réponses
Avatar
pierre
bonsoir à tous et toutes,
je suis désolé de vous déranger encore
voici une partie de mon code

Sheets("X").Activate
Range("B1:F1").Select
Selection.Copy
Sheets("Y").Activate
Range("A8").Select
ActiveSheet.Paste

il récupère une plage et la colle à partir d'une cellule fixe ici A8 je
voudrais que la fois suivante ce soit en A9 puis en A10 etc...
merci de votre aide
pierre

4 réponses

Avatar
isabelle
bonjour Pierre,

voici un exemple,

Sub Macro1()
lgn = Sheets("Y").Range("A65536").End(xlUp).Row + 1
Sheets("X").Range("B1:F1").Copy Destination:=Sheets("Y").Range("A" &
lgn)
End Sub

isabelle


bonsoir à tous et toutes,
je suis désolé de vous déranger encore
voici une partie de mon code

Sheets("X").Activate
Range("B1:F1").Select
Selection.Copy
Sheets("Y").Activate
Range("A8").Select
ActiveSheet.Paste

il récupère une plage et la colle à partir d'une cellule fixe ici A8 je
voudrais que la fois suivante ce soit en A9 puis en A10 etc...
merci de votre aide
pierre


Avatar
francois
"isabelle" a écrit dans le message de news:

bonjour Pierre,



bonjours, isabelle
j'aurais besoin , si s'est possible de comprendre l'exemple que vous avez
proposez a pierre pour pouvoir m'en servir sur un tableau.

le mot sheets ("Y) ou (X) représente quoi? la feuille active, la plage de
selection ?
j'ai éssayé la macro et j'ai un méssage d'érreur 9 ( indice n'appartien pas
a la sellection)

sur un tableau de 11 colonnes et (x) lignes
la plage de sélection est B5:J5
la 1ere ligne de réception est B16
comment transposer votre exemple sur ce tableau
merci d'avence de vos conseils avisé


voici un exemple,

Sub Macro1()
lgn = Sheets("Y").Range("A65536").End(xlUp).Row + 1
Sheets("X").Range("B1:F1").Copy Destination:=Sheets("Y").Range("A" &
lgn)
End Sub

isabelle


bonsoir à tous et toutes,
je suis désolé de vous déranger encore
voici une partie de mon code

Sheets("X").Activate
Range("B1:F1").Select
Selection.Copy
Sheets("Y").Activate
Range("A8").Select
ActiveSheet.Paste

il récupère une plage et la colle à partir d'une cellule fixe ici A8 je
voudrais que la fois suivante ce soit en A9 puis en A10 etc...
merci de votre aide
pierre




Avatar
isabelle
bonjour François,

sheets ("Y") et sheets ("X") représente les feuilles du classeur à
Pierre, j'ai repris les même nom trouver dans son code :

Sheets("X").Activate
Range("B1:F1").Select
Selection.Copy
Sheets("Y").Activate
Range("A8").Select
ActiveSheet.Paste


dans l'exemple que j'ai donné à Pierre c'est toujours la même plage
"B1:F1" de la feuille X qui est copiée, mais sur la feuille Y il faut
que la plage soit collé sur une ligne différente à chaque fois que la
macro est exécuté.
est ce que c'est ce que tu veux faire ? car tu mentionne une plage de 11
colonnes et (x) lignes.

isabelle

Avatar
francois
J'ai réussi a comprendre et la macro fonctionne correctement
un grand merci pour votre macro


"isabelle" a écrit dans le message de news:

bonjour Pierre,

voici un exemple,

Sub Macro1()
lgn = Sheets("Y").Range("A65536").End(xlUp).Row + 1
Sheets("X").Range("B1:F1").Copy Destination:=Sheets("Y").Range("A" &
lgn)
End Sub

isabelle


bonsoir à tous et toutes,
je suis désolé de vous déranger encore
voici une partie de mon code

Sheets("X").Activate
Range("B1:F1").Select
Selection.Copy
Sheets("Y").Activate
Range("A8").Select
ActiveSheet.Paste

il récupère une plage et la colle à partir d'une cellule fixe ici A8 je
voudrais que la fois suivante ce soit en A9 puis en A10 etc...
merci de votre aide
pierre