Consolider plusieurs feuilles excel dans une seule

Question

Bonjour, 

Je cherche à consolider dans l'onglet "recap" tous les autres onglets d'un classeur Excel. Pour ce faire j'aimerais le faire en un seul Clc sur un bouton MàJ sur la feuille.
Comment puis je Faire? Je suis nul en Macro et cela fait deux jours que je cherche.
Merci à vous

michel_m · Accepted Answer

Bonjour

Avant de penser VBA, penser Excel

Il existe une méthode de consolidation de données qui pourrait peut-^tre être utilisée avec Mac
voir ce site (incontournable pour tout bidouilleur qqsoit le niveau)
http://boisgontierjacques.free.fr/
rubrique
données-consolider

pijaku · Answer

Bonjour,

Entendons nous bien, qu'entendez vous exactement par "consolider"?

Qu'avez vous au départ et que voulez vous exactement obtenir ???

pijaku · Answer

En supposant que la + longue colonne soit la colonne A :
A partir d'un bouton dessiné avec la barre d'outils "boîte à outils contrôles" :
Option Explicit

Private Sub CommandButton1_Click()
Dim Wsh As Worksheet, Plage(), DrLig As Long

Application.ScreenUpdating = False
For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Name <> "recap" Then
        With Wsh
            DrLig = .Range("A" & Rows.Count).End(xlUp).Row
            Plage = .Range("A1:K" & DrLig)
        End With
        With Sheets("recap")
            DrLig = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A" & DrLig).Resize(UBound(Plage, 1), UBound(Plage, 2)) = Plage()
        End With
    End If
Next Wsh
Application.ScreenUpdating = True
End Sub  

Ci joint un exemple

ymmac · Answer

Merci quand même.

Mickaël

Consolider plusieurs feuilles excel dans une seule

4 réponses

Newsletters