Discussion :

[marccelestins]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é"

[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

[marccelestins]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[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, …

[marccelestins]

Ok c noté

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

As-tu testé ton code ? Est-tu sûr de ta ligne n°3 ?!

[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.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[marccelestins]

Merci beaucoup mais j'ai une erreur de compilation quand je mets le code.

[mercatog]

Sur quelle ligne?

[marccelestins]

il me met erreur de compilation sur le sub copie(). j'ai l'impression que sur la ligne 5 après le copy

[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

[marccelestins]

Merci Mercatog,

Ton code passe très bien.