Copier Coller lignes dans une autre feuille [Résolu]

Theologi 1 Messages postés mardi 18 avril 2017Date d'inscription 18 avril 2017 Dernière intervention - 18 avril 2017 à 11:23 - Dernière réponse : ThauTheme 4338 Messages postés mardi 21 octobre 2014Date d'inscription 6 septembre 2017 Dernière intervention
- 19 avril 2017 à 09:15
Bonjour à tous,

J'essaye de faire une macro qui, après quelques manipulations que j'ai réussi à implémenter, copierait chaque ligne à partir de la 5ème jusqu'à la fin de la feuille (le nombre de ligne dépend de chaque onglet et est variable), dans ma dernière feuille "Récapitulatif".

Merci à tous ceux qui m'aideront, cela me sera d'une grande utilité!

Afficher la suite 

1 réponse

Répondre au sujet
ThauTheme 4338 Messages postés mardi 21 octobre 2014Date d'inscription 6 septembre 2017 Dernière intervention - 19 avril 2017 à 09:15
+1
Utile
Bonjour Theologi, bonjour le forum,

Si j'ai bien compris tes non explications, essaie comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglets)
Dim R As Worksheet 'déclare la variable R (onglet Récapitulatif)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set R = Worksheets("Récapitulatif") 'définit l'onglet R
For Each O In Sheets 'boucle sur tous les onglets O du classeur
    If Not O.Name = R.Name Then 'condition : si le nom de l'onglet O n'est pas le nom de l'onglet R
        DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O (colonne à adapter à ton cas)
        'définit la cellule de destination DEST (A1, si A1 est vide, sinon la première cellule vide de la colonne A de l'onglet R)
        Set DEST = IIf(R.Range("A1").Value = "", R.Range("A1"), R.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
        O.Rows("5:" & DL).Copy DEST 'copie les lignes 5 à DL et le colle dans DEST
    End If 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub

Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de ThauTheme