Macro dercolonne

[Sang1]

Bonjour,

Je cherche a faire une macro qui copie les donnée du fichier ci joint sachant que ce fichier va etre actualisé toutes les semaines. Il faut copier toute la colonne.

Voici mon code, mais il ne fonctionne pas...

Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Select
DerColo = Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Range("AB2").End(xlToLeft).Column
Range(Cells(2, 28), Cells(2, DerColo)).Select
Selection.Copy
Windows("Book1.xls").Activate
Sheets("Datas").Select
Cells(7, 16).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Merci pour votre aide

SANG1

 

[job75]

Re : Macro dercolonne

Rebonjour Sang1,

Il faut copier toute la colonne.

Quelle colonne ? Je n'ai pas regardé le fichier.

Ce qui est sûr c'est que le code :

Range(Cells(2, 28), Cells(2, DerColo)).Select
Selection.Copy

copie une plage qui n'a qu'une seule ligne.

Donc modifier pour copier la ou les colonnes désirées.

A+

 

[Sang1]

Re : Macro dercolonne

Sa bug toujours, je n'y arrive pas 😡

Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Select
DerColo = Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Range("AB2").End(xlToLeft).Column
Range("Dercolo & 2😀ercolo & 35").Select
'Range("AB2:AB35").Select
Selection.Copy

J'ai changé le code, la colonne a copier c'est la "AB" sachant que dans une semaine sa aura changé. je l'ai mise en commentaire.

Merci d'avance

SANG1

 

[job75]

Re : Macro dercolonne

Re,

Il faut d'abord définir correctement la colonne à copier, en partant de IV2 puisque vous utilisez End(xlToLeft).

Ensuite il ne faut pas copier toute la colonne puisque vous voulez coller sur une cellule : on peut prendre une plage limitée par exemple à la ligne 1000, ça devrait suffire, non ?

Votre code (il peut être amélioré en évitant les Select, mais c'est à vous d'apprendre) :

Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Select
DerColo = Sheets("R_SDF_CR2_2009_S_PISTO_compte d").Range("[COLOR="Red"]IV2[/COLOR]").End(xlToLeft).Column
Range([COLOR="Red"]Cells(2, DerColo), Cells(1000, DerColo)[/COLOR]).Select
Selection.Copy
Windows("Book1.xls").Activate
Sheets("Datas").Select
Cells(7, 16).Select
Selection.PasteSpecial Paste:=xlPasteValues

A+