Enregistrement automatique des donnees

[stephanie.b.31]

Bonjour,

vous pouvez voir dans mon fichier excel joint que sur la page "debut", il y a deux tableaux. Un tableau de donnees initiales et un tableau recapitulatif dont les resultats sont lies au tableau de donnees initiales.

Ensuite il y a une page "archives" ou on peut voir le meme tableu que le tableau recapitulatif. Le but est que mes donnees du tableau recapitulatif de la page "debut" s'enregistrent dans le tableau vide de la page "archives".
J'aimerais que cela se fasse ligne par ligne: que des que j'enregistre les nouvelles donnees qui s'enregistrent se mettent sur la ligne du dessous.

J'ai vu que l'on pouvait faire un bouton archiver, mais je n'y arrive pas!

Merci d'avance de votre aide!

 

[JCGL]

Re : Enregistrement automatique des donnees

Bonjour à tous,

Un essai avec (clique sur le bouton GO) :

Option Explicit


Sub Archivage()
    Dim DerL&
    DerL = Sheets("archives").Range("A65000").End(xlUp).Row
    Sheets("debut").Range("C18:F18").Copy Sheets("archives").Range("A" & DerL + 1)
    Columns("A:D").EntireColumn.AutoFit
    Application.CutCopyMode = False
    Sheets("debut").Activate
End Sub

A + à tous

 

[stephanie.b.31]

Re : Enregistrement automatique des donnees

bonjour,

j'ai essaye mais ca ne garde pas les donnees precedentes! ca met tout le temps les memes donnees

 

[JCGL]

Re : Enregistrement automatique des donnees

Bonjour à tous,

Exact...

Remplace par ce code (je ne copie que les valeurs sans les formules) :

Option Explicit


Sub Archivage()
    Dim DerL&
    DerL = Sheets("archives").Range("A65000").End(xlUp).Row
    Sheets("debut").Range("C18:F18").Copy
       Sheets("archives").Select
    Range("A" & DerL + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("A5").Select
    Columns("A:D").EntireColumn.AutoFit
    Application.CutCopyMode = False
    Sheets("debut").Activate
End Sub

A + à tous