Copier/Coller 3 dernières lignes d'une feuille

[Bens77]

Bonjour à tous,

Après recherche sur le forum, et sur le net, je ne trouve qu'une partie de ma solution.
Voici mon problème :
j'ai un fichier pour lequel les données de la dernière ligne de la feuille 1 sont récupérées dans d'autres onglet.
Chaque jour, la ligne de ce fichier doit être dupliquée (changement de date) et les données des autres onglets mis à jour.

Sans prendre en compte le format du fichier, je fais actuellement un copier/coller de ma dernière ligne, que je colle en dernière ligne+1, puis un copier/coller "valeur" de ma dernière ligne pour pouvoir mettre à jour les autres onglets sans modifier les données des jours précédents.

Je cherche donc un code VBA (ou autres) me permettant d'automatiser ces différents copier/coller.

Problème supplémentaire, le format du fichier veut qu'il y ait une ligne vide avant et après ma dernière ligne de donnée. Ce format n'est malheureusement pas modifiable.

Je vous joint le format de mon fichier.

J'espère que vous pourrez m'aider 🙂

Bonne soirée

 

[Staple1600]

Re : Copier/Coller 3 dernières lignes d'une feuille

Bonsoir à tous

Avec ce que j'ai compris du problème, une proposition à tester

Sub a()
Dim dl&, nd
dl = Sheets("TEST").Cells(Rows.Count, 1).End(xlUp).Row - 1
nd = Cells(dl + 1, 1) + 1
Rows(dl).Resize(3).Copy Rows(dl + 3)
dl = Sheets("TEST").Cells(Rows.Count, 1).End(xlUp).Row - 1
Cells(dl + 1, 1) = nd
End Sub

 

[Bens77]

Re : Copier/Coller 3 dernières lignes d'une feuille

Bonjour JM et merci,
J'ai testé le code.
La 1ère étape fonctionne très bien, les 3 dernières lignes du fichier sont bien copiées et collées à la suite.
Par contre la 2ème partie qui consiste à faire le copier/coller "valeur" pour supprimer les formules ne fonctionne pas.
D'après ce que j'ai compris du code, il me semble que cette partie n'y figure pas.
Le code est il adaptable avec cette contrainte supplémentaire ?
Je joins un fichier avec les données qui devraient être "en dur" en rouge.
Merci pour votre aide

 

[Staple1600]

Re : Copier/Coller 3 dernières lignes d'une feuille

Bonsoir à tous

Bens77
Et avec cette macro, c'est OK?
Code vb:
Sub b()
Dim dl&, nd
With Sheets("TEST")
dl = .Cells(Rows.Count, 1).End(xlUp).Row - 1
nd = .Cells(dl + 1, 1) + 1: .Rows(dl).Resize(3).Copy .Rows(dl + 3)
dl = .Cells(Rows.Count, 1).End(xlUp).Row - 1: .Cells(dl + 1, 1) = nd
dl = .Cells(Rows.Count, 1).End(xlUp).Row - 3
With .Cells(dl, 2).Resize(, 2): .Value = .Value: End With
End With
End Sub

 

[Bens77]

Re : Copier/Coller 3 dernières lignes d'une feuille

Hello,
C'est parfait !
Par contre je ne comprends pas bien le code et je voulais voir pourquoi la formule de la 1ère colonne n'est pas copier.
Pouvez vous m'aider sur ce dernier point ?
Merci beaucoup !

 

[Staple1600]

Re : Copier/Coller 3 dernières lignes d'une feuille

Bonsoir à tous

Bens77
Tu disais plus bas

Sans prendre en compte le format du fichier, je fais actuellement un copier/coller de ma dernière ligne, que je colle en dernière ligne+1, puis un copier/coller "valeur" de ma dernière ligne pour pouvoir mettre à jour les autres onglets sans modifier les données des jours précédents.

Donc dans mon code cette ligne:
With .Cells(dl, 2).Resize(, 2): .Value = .Value: End With
fait l'équivalent d'un copier/coller
Testes en la mettant en commentaires ou en la supprimant.

 

[Bens77]

Re : Copier/Coller 3 dernières lignes d'une feuille

Bonsoir à tous, Bonsoir JM,

La ligne de code est nécessaire car c'est bien elle qui permet de figer mon historique.

Le problème vient seulement de la date présente dans la 1ère colonne.
Il se peut dans mon fichier que celle ci soit une formule (date précédente +7 par exemple).
Lorsque je lance le code tout fonctionne parfaitement sauf cette formule date qui disparait.