XL 2016 transfert de données

[AdT6320]

Bonjour,

Je dois créer un archivage de certaines données d'une facture.

Je suppose quand VBA je dois passer par une boucle qui décale d'une ligne à chaque fois que je clique sur le bouton archivage.

Je joins un exemple du fichier

Qui peut m'aider ???
Déjà grand MERCI pour votre aide

ADT

 

[sylvanu]

Bonsoir ADT,
Un essai en PJ avec :

Sub Archive()
Application.ScreenUpdating = False
DL = 1 + Sheets("Archivage").Range("A65500").End(xlUp).Row ' Première ligne disponible
With Sheets("Archivage")
    .Cells(DL, "A") = Range("A21")  ' à voir si c'est la bonne case de la date
    .Cells(DL, "B") = Range("D7")   ' à voir si c'est la bonne case du client
    .Cells(DL, "C") = Range("C17")  ' No facture
    .Cells(DL, "D") = Range("D17")  ' Indice No facture
    .Cells(DL, "E") = Range("E45")  ' HT
    .Cells(DL, "F") = Range("E46")  ' TVA
    .Cells(DL, "G") = Range("E47")  ' TTC
End With
End Sub

 

[AdT6320]

SUPER SUPER ça marche

merci