Optimiser formule d'archivage !

[stagiaire]

Salut membres de la communauté Excel,

je viens vers vous en se funeste jour pour m'assister dans ma quête de la parfaite formule VBA ! Grace au Forum une formule me permettant d'archiver le tableau d'un onglet "louer" vers un autre onglets "histo" a vu le jour, cependant cette formule copie le nouveau tableau du mois en dessous des anciens ! Du coup comme il faut garder plusieurs mois un même tableau pour le facturer, je vais retrouver le moi archivé tout en bas, bas, bas...

Du coup j'aimerais savoir comment copié les tableau au dessus du mois dernier? Inséré le nombre de ligne suffisant chaque mois ?

Sub historique()
    Sheets("louer").Select
fin = Range("A65536").End(xlUp).Row
    Range("A1:AO" & fin).Select
    Selection.Copy
    Sheets("Histo").Select
debut = Range("A65536").End(xlUp).Row + 2
    Range("A" & debut).Select
    ActiveSheet.Paste
End Sub

Accepter mes sincère salutations 😀 !
Stagiaire

 

[stagiaire]

Re : Optimiser formule d'archivage !

Erf, personne n'a d'idée ?

Peut être qu'on peut rajouter une formule qui va insérer le même nombre de ligne avant de copier ?

 

[job75]

Re : Optimiser formule d'archivage !

Bonjour,
Modifier la macro comme suit (désolé, pas le temps de tester) :

Sub historique()
Sheets("louer").Select
fin = Range("A65536").End(xlUp).Row+2
Range("A1:AO" & fin).Select
Selection.Copy
Sheets("Histo").Select
[A1].Insert Shift:=xlDown
End Sub

A+

 

[stagiaire]

Re : Optimiser formule d'archivage !

Yeaaah sa marche Job, merci !

voila mon fichier est terminer, on va voir se qu'en pense ma boite ^^

tchuss, merci à toutes les personnes qui ont participé a sa création 😀