Répéter un copier/coller spécial grâce à une macro ?[Excel 2007] Fermé

Question

Bonjour, 

Alors voilà mon problème maintes et maintes fois abordé mais les réponses que j'ai consultées ne m'aident pas à y voir plus clair...

J'ai:
-un fichier excel avec 31 onglets (plusieurs à vrai dire, beaucoup même)
-tous les onglets ont la même structure
-je cherche à"copier/coller transposer" la section B5:AB17 de chaque onglet dans un onglet récapitulatif , appelons le "total", les unes à la suite des autre, de haut en bas en commençant par la cellule G2 de l'onglet "total"

Je ne maîtrise pas du tout le VBA évidemment, même si j'ai très envie d'apprendre. Du coup j'ai tenté de créer une macro en enregistrant l'action pour le premier onglet. Mais biensur je ne parviens pas à comprendre comment on peut automatiser ça sur plusieurs onglets, donc elle ne me sert strictement à rien...

Je serait extrêmement reconnaissant à la personne qui m'offrirait ma première macro! et j'espère bien qu'elle me permettra de percer quelques secrets de cet outil magique!

Merci d'avance.


Configuration: Windows 7 / Chrome 32.0.1700.107

eriiic · Answer

Bonsoir,

un exemple :
Sub Total()
    Dim sh As Worksheet, shT As Worksheet
    Dim derlig As Long
    Set shT = Worksheets("Total")
    Application.ScreenUpdating = False
    For Each sh In Worksheets
        If sh.Name <> "Total" Then
            derlig = Application.Max(2, shT.Cells(Rows.Count, 7).End(xlUp).Row + 1)
            sh.[B5:AB17].Copy
            Sheets("Total").Cells(derlig, 7).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        End If
    Next sh
    shT.[G2].Select
    Application.ScreenUpdating = True
End Sub 
Pour moi le code parle de lui-même, je ne l'ai pas commenté. N'hésite pas à utiliser F1 sur les fonctions qui ne te parlent pas.
https://www.cjoint.com/?DBvxWqZOIj8

eric

derek · Answer

Merci!
Bon même si j'arrive pas à comprendre 90% du code, j'ai trifouillé le "Row + 1)" en "Row + 5)" car sinon il me manquait à chaque fois les 4 dernières lignes (sans que je comprenne pour autant exactement ce que ça signifie malheureusement...)

Mais merci beaucoup!

Répéter un copier/coller spécial grâce à une macro ?[Excel 2007]

2 réponses

Discussions similaires