Obtenir une récap de tous mes onglets Résolu/Fermé

Question

Bonjour à tous, et merci par avance de votre aide..

J'ai créé un tableau excel avec plusieurs onglets. Tous renommés.

J'ai créé un autre onglet appelé RECAP sur lequel je souhaiterai faire apparaitre une recap de plusieurs cellules de tous mes différents onglets.

Alors la premiere ligne tout "bêtement" je mets = je clique sur l'onglet désiré et clique sur la cellule souhaité. J'ai 7/8 colonnes et je fais pareil pour toutes. Mon pb commence ensuite... C'est que en tirant la formule vers le bas je pensais que l'onglet aller changer, mais non il me garde le même onglet et me saute une cellule... 

Je ne suis pas une experte, alors je vais essayer de comprendre vos réponses ou astuces...

Merci par avance,

CB.

skk201 · Answer

Bonjour

Vous pouvez mettre en A2 le nom de l'onglet.

Puis en B2 =INDIRECT($A2&"!A1")

Ensuite vous pouvez tirer vers le bas.
Littéralement la formule va chercher le nom de la feuille dans la colonne A puis affiche la cellule A1 de cette feuille.
 
Bonne journée

Maurice · Answer

bonjour
si tu bricole un peux les macros
voila la solution

Sub Recap()
Asauter = Feuil1.Name
Sheets(Asauter).Select
Lig = 3
Rows(Lig & ":" & Rows.Count).ClearContents

    For X = 1 To ThisWorkbook.Sheets.Count
        If Sheets(X).Name <> Asauter Then
            Cells(Lig, 1).Value = Sheets(X).Name
            Cells(Lig, 2).Value = Sheets(X).Range("B4").Value
            Cells(Lig, 3).Value = Sheets(X).Range("B6").Value
            Cells(Lig, 4).Value = Sheets(X).Range("B8").Value
            Cells(Lig, 5).Value = Sheets(X).Range("B2").Value
            Cells(Lig, 6).Value = Sheets(X).Range("D2").Value
            Cells(Lig, 7).Value = Sheets(X).Range("E28").Value
            Lig = Lig + 1
        End If
   Next
End Sub

A+
Maurice

Maurice · Answer

bonjour
la macro ne prent que le nom de onglet 

Cells(Lig, 1).Value = Sheets(X).Name

si tu veux F4 mettre a la place

Cells(Lig, 1).Value = Sheets(X).Range("F4").Value

a toi de voir car je ses pas comment tu travailles HI
mes pour moi F4 ne sert pas a grang chose

A+
Maurice

Gyrus · Answer

Bonsoir, 

Une autre solution sans VBA.
Tu écris le nom des onglets en colonne A.
Puis tu tires les formules.
https://www.cjoint.com/?DHsuooWiSlQ

A+

Obtenir une récap de tous mes onglets

4 réponses

Discussions similaires