Zon

Bonjour à tous les deux et au forum,

Voilà le code qui te permet de copier de la ligne 10 à la dernière ligne remplie vers la feuille base de donnée automatiser. Il suffit de l'associer à un bouton pour la lancer quan tu as fini ta saisie...


Sub copie()
Dim L, i, k As Integer
dim ws1,ws2 as worksheet
Set ws1 = Sheets("jour") 'Définition d'une feuille
Set ws2 = Sheets("base de donnée")
L = ws1.Range("A65536").End(xlUp).Row ' on récupère la dernière ligne de la feuille jour
k = ws2.Range("A65536").End(xlUp).Row
For i = 10 To L
ws1.Rows(i).Copy Destination:=ws2.Rows(k + 1)'on copie ligne par ligne
k = k + 1 'on incrémente k pour pouvoir passer à la ligne suivante dans base de donnée
Next i
End Sub


Je n'ai renvoyé ton fichier avec ma macro, car ton fichier comporte trop de liaisons avec d'autres classeurs....


A++++