Archivage dans un fichiers

[Maguy]

Bonjour à tous!

J'ai un petit fichier qui risque fort bien de devenir énorme. j'aimerais que chaque ligne complèter soit archivée sur la deuxième feuille du fichier. Mais voilà, je ne sais pas comment faire n'y si je dois y aller par formule ou par macro.

Si quelqu'un pourrais me donner un petit coup de main ca serait très apprécié!!

Merci à l'avance!!

Maguy

 

[jp]

bonsoir maguy, bonsoir le forum,
je me suis permis de modifier un peu ton classeur pour arriver à obtenir
quelque chose qui ressemble à tes besoins. j'ai fais une macro, qui fonctionne grâçe à un bouton. cette macro n'est peut être pas optimisée, mais elle fonctionne. (sous excel 2002.)
bonne soirée @+

Sub Archivage()
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).EntireRow.Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select

End Sub

 

[Maguy]

Bonjour jp!

Merci pour l'essai mais tout ce que la macro fait c'est de recopier la dernière ligne du tableau dans la feuille 2.

j'aimerais que lorsqu'il y a une date d'inscrite dans la colonne H, la ligne entière soit enlever de ce tableau et archiver sur la feuille 2.

Je suis en train de voir avec le code de ta macro si il n'y aurais pas quelque chose à faire. Si tu as une autre idée je suis très intéresser.

Un gros merci de prendre de ton temps pour moi...

Maguy

 

[jp]

bonsoir Magut, bonsoir le forum,
désolé ma chère, je n'avais pas tout compris!!!
avec les quelques modifs que j'ai apporté, tu devrais obtenir ton bonheur(enfin j'espère)!!!!!
sachant que tout peu être amélioré, même si cela fonctionne.
à bientôt peut être.
amicalement jacques.

Sub Archivage()
ActiveSheet.Columns(8).Find("*", , , , , xlPrevious).EntireRow.Select
Selection.Cut
Sheets("Feuil2").Select
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
ActiveSheet.Paste
' ActiveSheet.Paste
Application.CutCopyMode = False
Feuil1.Activate
Selection.Delete Shift:=xlUp
ActiveSheet.Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select

End Sub

 

[Maguy]

Bonjour Jacques!

Désolée pour avoir pris tant de temps ....mais j'était à l'extérieur de la ville donc je n'ai pu prendre connaissance de ce petit bijou de macro que ce matin. Je te remercie énormément car c'est en plein ca que je cherchais.

Merci encore une fois!!!

Une personne comblée

Maguy