Copie coller à la suite

Version imprimable

Bonjour à tous,

j'ai deux feuilles nommées "Feuil1" et "Feuil 2". les colonnes exploitées sont A à H. elles ont les mêmes entêtes.J'aimerais les coller les unes à la suite des autres dans la feuille de synthèse Récap. Avant tout, j'efface à chaque fois les données présentes dans l'onglet "Récap". Je souhaiterais lancer la macro depuis la feuille Feuille "A".

Actuellement mon code , il fonctionne mais il faut absolument le lancer depuis la feuille de synthèse. J'aimerais le lancer depuis la feuille "A".
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For Each f In Worksheets(Array("Feuil1", "Feuil2")) If f.Name <> ActiveSheet.Name Then f.Range("A2:H" & f.Range("A" & Rows.Count).End(xlUp).Row).Copy lgn = Range("A" & Rows.Count).End(xlUp)(2).Row Range("A" & lgn).PasteSpecial xlPasteAll End If Next f Range("A" & Rows.Count).End(xlUp).Select MsgBox "Travail terminé"

17/02/2016, 14h11
Minise

si t'écris Range("A" & blabla) tout seul il fera par défaut le traitement dans la feuille active, si tu veux "bloquer" sur une feuille tu rajoutes la feuille avant : Sheets("Récap").Range("A" & blabla).

j'ai pas pu m'empécher de lire "Travail Terminé !" avec une voix d'orc :mouarf:

Oui mais quand je crée un bouton depuis la feuille"A" pour lancer ma macro de copie coller dans la feuille"Récap" la macro ne fonctionne pas bien.j'ai un messsage d'erreur 400.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Worksheets("Récap").Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
 
 
For Each f In Worksheets(Array("Feuil1", "Feuil2"))
 
        If f.Name <> "Recap" Then
 
            f.Range("A2:H" & f.Range("A" & Rows.Count).End(xlUp).Row).Copy
            lgn = Range("A" & Rows.Count).End(xlUp)(2).Row
            Worksheets("Recap").Range("A" & lgn).PasteSpecial xlPasteAll
        End If
    Next f
    Range("A" & Rows.Count).End(xlUp).Select
    MsgBox "ok"

17/02/2016, 14h35
Marc-L

Bonjour, bonjour !

Conformément aux règles du forum, merci d'éditer vos messages afin de baliser le code via l'icône dédiée !
Cela sera plus pratique et côté lisibilité et côté indications des numéros de lignes à modifier …

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Ok c noté

En cherchant j'ai trouvé mais peut être que vous avez une solution plus simple

Code:

1
2
3
4
5
6
7
8
9
10
11
Const LTot As Long = 100000
 
Worksheets("feuil1").Range("A2:H" & LTot).ClearContents
cpt = Worksheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row
    Worksheets("feuil1").Range("A2:H" & cpt).Copy
 
     Worksheets("Récap").Range("A2:H" & cpt).PasteSpecial xlPasteAll
j = Worksheets("feuil2").Range("A" & Rows.Count).End(xlUp).Row
      Worksheets("feuil2").Range("A2:H" & j).Copy
 
      Worksheets("Récap").Range("A" & cpt + 1).PasteSpecial xlPasteAll

17/02/2016, 17h54
Marc-L

As-tu testé ton code ? Est-tu sûr de ta ligne n°3 ?!
17/02/2016, 21h20
marccelestins

Oui, j'ai testé et ça efface tout . Pourquoi le code est faux? Pourrais tu me donner stp un autre code plus simple qui répond à ma macro sinon ça fonctionne.

Code:

1
2
3
4
5
6
7
8
Dim F As Worksheet
 
For Each F In Worksheets(Array("Feuil1", "Feuil2"))
    If F.Name <> "Recap" Then
        F.Range("A2:H" & F.Range("A" & Rows.Count).End(xlUp).Row).Copy Worksheets("Recap").Range("A" & Rows.Count).End(xlUp)(2)
    End If
Next F
MsgBox "ok"

17/02/2016, 22h30
marccelestins

Merci beaucoup mais j'ai une erreur de compilation quand je mets le code.
17/02/2016, 23h32
mercatog

Sur quelle ligne?
17/02/2016, 23h40
marccelestins

il me met erreur de compilation sur le sub copie(). j'ai l'impression que sur la ligne 5 après le copy
18/02/2016, 00h26
mercatog

J'ai testé mon code tel que je l'ai écris sur un fichier bidon sans erreur.
Peut être tu as loupé quelque chose.

Sinon mets ton code comme tu l'as écris
18/02/2016, 09h50
marccelestins

Merci Mercatog,

Ton code passe très bien.