Microsoft 365 Macro copie d une colonne avec incrémentation

Vibsa · 15 Février 2023

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 · 15 Février 2023

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.

Vibsa · 16 Février 2023

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

Microsoft 365 Macro copie d une colonne avec incrémentation

Vibsa

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Vibsa

XLDnaute Nouveau

Discussions similaires