Microsoft 365 Macro copie d une colonne avec incrémentation

Vibsa

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonsoir Vibsa, et bienvenu sur XLD,
Auriez vous un petit fichier test, ce serait plus simple;
Sinon, au pif, un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • CopieColle.xlsm
    15.8 KB · Affichages: 3

Vibsa

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
20
Affichages
432

Statistiques des forums

Discussions
313 207
Messages
2 096 216
Membres
106 535
dernier inscrit
StephCo