AIDE ! ! Rapidement si possible… Copier les rangées des feuilles de travail et de la pâte multiples dans une feuille récapitulative - Problèmes et solutions aux problèmes liés à Software

1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :

consoSheets secondaires ()
Faible sht comme feuille de travail, shtDest comme feuille de travail, lastRow en tant que longtemps
application.ScreenUpdating = faux
shtDest réglé = ActiveWorkbook.Sheets (la « évaluation détaille »)

Pour chaque sht dans ActiveWorkbook.Worksheets
    Si droit (équilibre (sht. Nom), 8) = « évaluation » et parti (équilibre (sht. Nom), 7) <> « résumé » puis
        
        lastRow = sht. Cellules (sht. Rows.Count, 2).End (xlUp). Rangée
        
        Si lastRow > 2 puis
            sht.range (« B3 : V » et lastRow). Copie
            lastRow = shtDest.Cells (sht. Rows.Count, 2).End (xlUp). Rangée
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Pâte de l'excentrage (1, 0) .PasteSpecial : =xlPasteValues
            shtDest.Cells (shtDest.Rows.Count, 1).End (xlUp). Pâte de l'excentrage (1, 0) .PasteSpecial : =xlPasteFormats
        Finir si
        
    Finir si
Prochain sht
application.ScreenUpdating = rectifient
Sous-marin d'extrémité

Question : AIDE ! ! Rapidement si possible… Copier les rangées des feuilles de travail et de la pâte multiples dans une feuille récapitulative

Réponse : AIDE ! ! Rapidement si possible… Copier les rangées des feuilles de travail et de la pâte multiples dans une feuille récapitulative