OVH Cloud OVH Cloud

COPIER/COLLER

4 réponses
Avatar
jack 43
Bonsoir,

Je me suis connecté la première fois la semaine dernière, et suis trés
agréablement surpris. Peut-être plus, un nouveau mode de communication pour
moi pour comprendre et apprendre et aussi échanger.

Comment "sélectionner" une plage de cellules jusqu'à la première ligne vide?
le nombre de colonnes est toujours constant; 7 de A à G
le nombre de lignes est variable de 1 à 100
il n'y a pas de lignes vides intercallées.

Cette sélection, doit ensuite permettre un copier/coller dans un autre
fichier.

Comment coller la plage de cellule à partir de la première ligne vide dans
un nouveau fichier. Les "collages" se feront toujours à la ligne "1" alors
que je souhaiterai que les collages suivants se fassent à partir de la
première ligne vide.

le nombre de colonnes est toujours constant 7 de A à G et le collage se fera
toujours dans ces mêmes colonnes.

MERCI ET BONNE SOIREE !

4 réponses

Avatar
anonymousA
bonsoir,

on suppose que ton fichier source s'appelle source.xls et que la feuille
source de ce fichier s'appelle source et que ton fichier destination
s'appelle dest.xls et sa feuille destination dest

pour copier les cellules de la feuille source du fichier source vers la
feuille dest du fichier dest.xls avec les conditions copie des colonnes
A à G en intégrant le fait que la dernière ligne n'est pas connue

sub copie()

set wssource=workbooks("source.xls").sheets("source")
set wssource=workbooks("dest.xls").sheets("dest")

with wssource
set plagesource=.range(.cells(1,1),.cells(.cells("A65536").end(xlup).row,7))
end with

with wsdest
set
plagedest=.range(.cells(.cells("A65536").end(xlup).row,1),.cells(.cells("A65536").end(xlup).row,1))
end with

plagesource.copy plagedest

end sub

on suppose bien sur que les 2 fichiers sont ouverts

A+

Bonsoir,

Je me suis connecté la première fois la semaine dernière, et suis trés
agréablement surpris. Peut-être plus, un nouveau mode de communication pour
moi pour comprendre et apprendre et aussi échanger.

Comment "sélectionner" une plage de cellules jusqu'à la première ligne vide?
le nombre de colonnes est toujours constant; 7 de A à G
le nombre de lignes est variable de 1 à 100
il n'y a pas de lignes vides intercallées.

Cette sélection, doit ensuite permettre un copier/coller dans un autre
fichier.

Comment coller la plage de cellule à partir de la première ligne vide dans
un nouveau fichier. Les "collages" se feront toujours à la ligne "1" alors
que je souhaiterai que les collages suivants se fassent à partir de la
première ligne vide.

le nombre de colonnes est toujours constant 7 de A à G et le collage se fera
toujours dans ces mêmes colonnes.

MERCI ET BONNE SOIREE !


Avatar
anonymousA
erratum:

plagedest=.range(.cells(.cells("A65536").end(xlup).row+1,1),.cells(.cells("A65536").end(xlup).row+1,1))


sinon , on copie sur la dernière ligne non vide et on perd ces données
là. Ca implique bien sur que la 1ere copie a lieu sur la ligne N°2 de la
feuille dest du fichier destination.

A+


bonsoir,

on suppose que ton fichier source s'appelle source.xls et que la feuille
source de ce fichier s'appelle source et que ton fichier destination
s'appelle dest.xls et sa feuille destination dest

pour copier les cellules de la feuille source du fichier source vers la
feuille dest du fichier dest.xls avec les conditions copie des colonnes
A à G en intégrant le fait que la dernière ligne n'est pas connue

sub copie()

set wssource=workbooks("source.xls").sheets("source")
set wssource=workbooks("dest.xls").sheets("dest")

with wssource
set
plagesource=.range(.cells(1,1),.cells(.cells("A65536").end(xlup).row,7))
end with

with wsdest
set
plagedest=.range(.cells(.cells("A65536").end(xlup).row,1),.cells(.cells("A65536").end(xlup).row,1))

end with

plagesource.copy plagedest

end sub

on suppose bien sur que les 2 fichiers sont ouverts

A+


Bonsoir,

Je me suis connecté la première fois la semaine dernière, et suis trés
agréablement surpris. Peut-être plus, un nouveau mode de communication
pour moi pour comprendre et apprendre et aussi échanger.

Comment "sélectionner" une plage de cellules jusqu'à la première ligne
vide?
le nombre de colonnes est toujours constant; 7 de A à G
le nombre de lignes est variable de 1 à 100 il n'y a pas de lignes
vides intercallées.
Cette sélection, doit ensuite permettre un copier/coller dans un autre
fichier.

Comment coller la plage de cellule à partir de la première ligne vide
dans un nouveau fichier. Les "collages" se feront toujours à la ligne
"1" alors que je souhaiterai que les collages suivants se fassent à
partir de la première ligne vide.

le nombre de colonnes est toujours constant 7 de A à G et le collage
se fera toujours dans ces mêmes colonnes.

MERCI ET BONNE SOIREE !




Avatar
LSteph
Bonsoir Jack ,
Si aucune cellules vides dans la première colonne:

Comment "sélectionner" une plage de cellules jusqu'à la première ligne
vide?


Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Cette sélection, doit ensuite permettre un copier/coller...


Selection.Copy

...dans un autre
fichier.
..donc pour sélectionner première cellule cellule d'une autre feuille de

autre fichier:

Workbooks("lautre.xls").Worksheets("Feuil2").Activate
Range("A1").Select

Comment coller la plage de cellule à partir de la première ligne vide dans
un nouveau fichier.


If IsEmpty(Selection) Then
ActiveSheet.Paste
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If

'nota:
on peut aussi partir de la dernière cellule pour remonter à la première avec
[a65536].end(xlup)
ou insérer chaque fois en A1 au lieu de coller

'lSteph

"jack 43" <jack a écrit dans le message de
news:
Bonsoir,

Je me suis connecté la première fois la semaine dernière, et suis trés
agréablement surpris. Peut-être plus, un nouveau mode de communication
pour
moi pour comprendre et apprendre et aussi échanger.

Comment "sélectionner" une plage de cellules jusqu'à la première ligne
vide?
le nombre de colonnes est toujours constant; 7 de A à G
le nombre de lignes est variable de 1 à 100
il n'y a pas de lignes vides intercallées.

Cette sélection, doit ensuite permettre un copier/coller dans un autre
fichier.

Comment coller la plage de cellule à partir de la première ligne vide dans
un nouveau fichier. Les "collages" se feront toujours à la ligne "1" alors
que je souhaiterai que les collages suivants se fassent à partir de la
première ligne vide.

le nombre de colonnes est toujours constant 7 de A à G et le collage se
fera
toujours dans ces mêmes colonnes.

MERCI ET BONNE SOIREE !


Avatar
Gaenonius
il n'y a pas de lignes vides intercallées.


S'il n'y a pas non plus de colonne entièrement vide, tuu peux utiliser
CurrentRegion :

Range("A1").CurrentRegion.Select

--
Gaenonius

Bonsoir,

Je me suis connecté la première fois la semaine dernière, et suis trés
agréablement surpris. Peut-être plus, un nouveau mode de communication pour
moi pour comprendre et apprendre et aussi échanger.

Comment "sélectionner" une plage de cellules jusqu'à la première ligne vide?
le nombre de colonnes est toujours constant; 7 de A à G
le nombre de lignes est variable de 1 à 100
il n'y a pas de lignes vides intercallées.

Cette sélection, doit ensuite permettre un copier/coller dans un autre
fichier.

Comment coller la plage de cellule à partir de la première ligne vide dans
un nouveau fichier. Les "collages" se feront toujours à la ligne "1" alors
que je souhaiterai que les collages suivants se fassent à partir de la
première ligne vide.

le nombre de colonnes est toujours constant 7 de A à G et le collage se fera
toujours dans ces mêmes colonnes.

MERCI ET BONNE SOIREE !