Copier les 5 dernières lignes d'un tableau

  • Initiateur de la discussion Initiateur de la discussion xvella
  • 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 !

xvella

XLDnaute Occasionnel
Bonjour forum,
Bonjour tous,

Et Bonne Année à tous.

Voilà petit souçi.

Je souhaiterais copier les 5 dernières lignes de valeur d'un Tableau dans un autre dans une feuille différente.

Si il n'y a pas 5 lignes de valeur le Tableau B affichera les lignes existantes.

Merci pour l'aide que vous pourrez m'apporter.

A+
 

Pièces jointes

Re : Copier les 5 dernières lignes d'un tableau

Bonjour xvella, salut Pierrejean,

Une version en formule :

en B3 onglet Tableau B :

Code:
=SI(NBVAL('Tableau A'!$B$6:$B$40)<=5;
INDEX('Tableau A'!$B$6:$B$90;LIGNE()-2);
INDEX('Tableau A'!$B$6:$B$90;NBVAL('Tableau A'!$B$6:$B$40)-7+LIGNE()))

à recopier vers le bas

Adapter INDEX pour les autres colonnes

Adapter les plages de cellules aussi

@+
 
Re : Copier les 5 dernières lignes d'un tableau

Bonjour Pierrejean,
Bonjour Tibo,

Merci à tous deux.

La version de Pierrejean est très bien il y a juste un hic!

Pierrejean quand tu à moins de 5 lignes remplit je souhaite quand même voir les valeurs.

Pour la version de Tibo cela est bien mais dans le cas d'un tableau qui devient de +en+ grand une solution VBA est plus adapter.

Encore Merci.

@+
 
Re : Copier les 5 dernières lignes d'un tableau

bonjour le fil,
Bonne année à vous!

Tibo, PierreJean, je vois que vous êtes déjà sur le coup 🙂

J'y apporte aussi mon petit caillou!



Bonne soirée

Edit : Pierre jean, il est écrit à l'encre sympathique ton code? 😛 chez moi, pas possible de le trouver, ni de l' essayer! as-tu zippé le bon fichier?
 

Pièces jointes

Dernière édition:
Re : Copier les 5 dernières lignes d'un tableau

bonjour le fil un autre caillou
Bonne année à vous tous
Option Explicit
Sub test2()
Sheets(1).Activate: Range("b65536").End(xlUp).Offset(-4, 0).Select
Range((ActiveCell.Address) & ":" & (ActiveCell.Offset(4, 5).Address)).Copy Destination:=Sheets(2).Range("b3")
End Sub
 
Re : Copier les 5 dernières lignes d'un tableau

salut excalibur,

ton petit caillou, il est dans ta chaussure? 😀

Paske, paske.... ça ne ne gère pas bien les cas où il y a moins de 5 ligne saisies dans le tableau. 🙄

Bonne année à toi aussi! 🙂
 
Re : Copier les 5 dernières lignes d'un tableau

Bonjour à tous,

Lucky : c'est fini les bulles... PJ a mis un excellent code dans un excellent fichier qui fonctionne excellemment bien...

A+ ami Lucky et avec plein d'humour
 
- 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

Réponses
9
Affichages
162
  • Question Question
Microsoft 365 Insertion de photo
Réponses
14
Affichages
441
Réponses
13
Affichages
494
Retour