Microsoft 365 Macro copie d une colonne avec incrémentation

[Vibsa]

Bonjour à tous,
Je me présente je m appel Arnaud.

J aurais besoin d aide car je suis plus que novice dans le domaine VBA.

J aurais besoin d une macro qui me copie la colonne d une feuille dans une autre feuille chaque semaine de manière incrementé afin d avoir un suivi chaque semaine.
Pourriez vous m aider svp.

En vous remerciant d avance.
Cordialement.
Arnaud.

 

[sylvanu]

Bonsoir Vibsa, et bienvenu sur XLD,
Auriez vous un petit fichier test, ce serait plus simple;
Sinon, au pif, un essai en PJ avec :

Sub copie()
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    With Sheets("Archive")
        DC = .Cells(1, Columns.Count).End(xlToLeft).Column
        If .[A1] <> "" Then DC = DC + 1
        .Range(.Cells(1, DC), .Cells(DL, DC)) = Range("A1:A" & DL).Value
    End With
End Sub

A chaque appui sur le bouton on copie la colonne A dans la première colonne libre de Archive.

 

[Vibsa]

Bonjour et merci sylvanu,

Vôtre macro va bien m aider.
Le seul pb est que les valeurs que je récupère dans la colonne de feuil1 son généré par des liens venant d autre fichiers excel et il faut que je les copies dans archive avec incrémentation au format valeur.
Je vais tester aujourd'hui.
En vous remerciant encore.

Cordialement.
Vibsa