Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Bens77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bens77

XLDnaute Nouveau
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
 

Pièces jointes

Trier par date Trier par votes
Re : Copier/Coller 3 dernières lignes d'une feuille

Bonsoir à tous

Avec ce que j'ai compris du problème, une proposition à tester
Code: 
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
Re : Copier/Coller 3 dernières lignes d'une feuille

Bonsoir à tous

Bens77
Tu disais plus bas
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.
 
Vote positif 0 Vote négatif
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.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
181
job75
I
  • Résolu(e)
Microsoft 365 Transformer un export de données
2
Réponses
27
Affichages
611
Ines99
I
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
651
TooFatBoy
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
181
Bodin44
B
D
  • Résolu(e)
XL 2016 Classeur en page web
2
Réponses
15
Affichages
413
TooFatBoy
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
461
AtTheOne
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
779
safranien
S
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
967
rastafouette
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
384
fenec
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
469
fanch55
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
351
sousou
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
216
sousou
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
628
sousou
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
554
MANU64360
M
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
366
flc13090
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
675
Musbek
M
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
258
vgendron
S
  • Question Question
XL 2016 Transposer colonnes sur lignes
2 3
Réponses
32
Affichages
2 K
soumus
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…