Copier / coller incrémenté

[Sang1]

Bonjour,

Je cherche a copier une colonne et a la coller. Le problème c'est que la colonne a copier se déplace a chaque fois que la macro est lancée et c'est pareil pour la colonne de déstination.
En gros j'ai des données qui sont mise a jour toutes les semaines et je cherche a les garder sauvegarder et que la macro prenne en compte les nouvelles.

Merci d'avance

SANG1

 

[mumu]

Re : Copier / coller incrémenté

Salut Sang1,
tu pourrais essayer d'adapter ça......

Sub essai()

Dim DerLig As Integer
DerLig = Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row 'on cherche la dernière ligne du fichier

' on va faire un copie/colle de la colonne nommée donnees
Sheets("feuil1").Range("1:1").Find(what:="donnees", LookIn:=xlValues).Select ' on cherche la première cellule de la colonne à copier
Sheets("feuil1").Range(ActiveCell, ActiveCell.Offset(DerLig - 1, 0)).Select
Selection.Copy
Sheets("feuil2").Select
Sheets("feuil2").Range("A1").Select ' on colle en A1 dans la feuil2
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False

End Sub

Il faut que tu précises le nom de ta colonne et le nom des feuilles que j'ai nommé arbitrairement dans cet exemple

@ +

Mumu

 

[Sang1]

Re : Copier / coller incrémenté

Bonjour, 😕

Sa ne fonctionne toujours pas....
Pour mieu comprendre le pb, j'ai fait un fichier exemple. En faite je dois copier la derniere colonne du fichier (sachant qu'il y a une colonne de rajoutée chaque semaine) et la coller dans le fichier qui est ouvert grace a la macro "essai".

J'espere avoir bien décrit mon pb...

Merci, Crdlt,

SANG1

 

[kjin]

Re : Copier / coller incrémenté

Bonjour,
Pas le début d'un commencement d'explication dans ton fichier !
De macro, point de trace.
Copier quoi, où ?
Ca risque fort de durer 🙄
En outre tu risques qq soucis

Workbooks("April Facilities Report.process[COLOR="Red"]..[/COLOR]xls").Activate

A+
kjin

 

[mumu]

Re : Copier / coller incrémenté

Re,

Essai ça, mais tu devras l'adapter pour coller ta colonne où tu veux dans ton fichier cible, car pour l'instant nous n'avons pas beaucoup d'élément pour t'aider. Il faudrait qu'on sache vers quelle feuille tu veux coller la colonne.
Ici c'est un copie/colle d'une feuille à l'autre dans le même classeur

Dim DerCol As Integer

DerCol = Sheets("Sheet1").Cells(2, Columns.Count).End(xlToLeft).Column

' on va faire un copie/colle de la colonne

Sheets("Sheet1").Select
Sheets("Sheet1").Columns(DerCol).Select
Selection.Copy
Sheets("Sheet2").Select
Sheets("Sheet2").Columns(1).Select
    Selection.PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False

@ +