Recopie des 7 dernieres lignes d'un tableau vers un autre tableau

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

pietrus2

XLDnaute Nouveau
Problème Recopie des 7 dernieres lignes d'un tableau vers un autre tableau

Bonjour ,

J'ai a ma disposition deux fichiers excel.

- DRAFT_Entrées-Sorties
- Suivi indicateurs

Je désire créer une maccro dans le fichier suivi indicateurs sur la feuille BACKLOG SAV qui va chercher les 7 dernieres lignes du tableau de la feuille N10 du fichier DRAFT_Entrées-Sorties sachant que toutes les semaines une ligne est renseignée dans le tableau N10. les lignes copiées sont à coller dans les cellules B8 : AN17 de la feuille BACKLOG SAV

Merci de votre aide .

Pietrus
 

Pièces jointes

Dernière édition:
Re : Recopie des 7 dernieres lignes d'un tableau vers un autre tableau

Bonjour,
rajoutes ce code dans le classeur "Suivi indicateurs" :

Code:
Sub copie()
Dim DerLig As Long
    With Workbooks("DRAFT_Entrées-Sorties.xls")
        With .Sheets("N10")
            DerLig = .[B2].End(xlDown).Row
            .Range(.Cells(DerLig - 9, 2), .Cells(DerLig, 40)).Copy
            [B8].PasteSpecial Paste:=xlPasteValues
        End With
    End With
End Sub
 
Re : Problème Recopie des 7 dernieres lignes d'un tableau vers un autre tableau

Et un autre problème arrive , me basant sur le travail efféctué précédement , j'ai voulu effectué le meme travail de récupération de données dans la meme feuille de suivi indicateur , a partir d'une autre feuille du classeur excel DRAFT... mais il i a une erreur type 1004 , voici le code entier ::
Sub copie()
Dim DerLig As Long
With Workbooks("DRAFT_Entrées-Sorties .xls")
With .Sheets("N10")
DerLig = .[B2].End(xlDown).Row
.Range(.Cells(DerLig - 9, 2), .Cells(DerLig, 40)).Copy
[B8].PasteSpecial Paste:=xlPasteValues
End With

End With
End Sub

Sub copie2()
Dim DerLig As Long
With Workbooks("DRAFT_Entrées-Sorties .xls")
With .Sheets("N10 HDD")
DerLig = .[B2].End(xlDown).Row
.Range(.Cells(DerLig - 9, 2), .Cells(DerLig, 40)).Copy 'pb ici
[B20].PasteSpecial Paste:=xlPasteValues
End With
End With
End Sub
*************************

je me dit que je pourrais faire les deux actions en meme temps dans "copie" mais je sais pas comment l'intégrer
 
Re : Recopie des 7 dernieres lignes d'un tableau vers un autre tableau

Re-,
Quelle est la valeur de DerLig?
Quelle est la dernière ligne remplie?
Si inférieure à 10, cela va effectivement donner une erreur de ce type....

Tu peux essayer avec ceci :

Code:
If DerLig >= 12 Then
.Range(.Cells(DerLig - 9, 2), .Cells(DerLig, 40)).Copy
Else
.Range(.Cells(3, 2), .Cells(DerLig, 40)).Copy
End If
 
Dernière édition:
- 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

Retour