Microsoft 365 Consolidation données depuis des feuilles

gpion · 23 Septembre 2024

Bonjour
j'ai un classeur Excel que je veux remettre à mes équipes sur les investissements clients.
L'idée est d'avoir une feuille excel par clients ou groupe de clients et d'y rentrer les infos nécessaires.

Je veux ensuite que la consolidation des données se fasse dans un dernier onglet, qui reprendra une partie des données qui se trouvent dans les autres feuilles excel.

Comment puis je faire cela?

Sachant que potentiellement un nom d'onglet peut changer si le client change de nom en cours d'année, mais aussi que s'y l'on intègre de nouveaux clients, ces derniers soient aussi dans la consolidation.
J'ai essayé avec données / consolider, mais j'ai des données qui ne sont pas toutes chiffrées, car j'ai aussi des noms, donc je n'ai pas réussi.

En copie, le fichier test.

D'avance merci de votre aide

G

sylvanu · 23 Septembre 2024

Bonjour Gpion,
Un essai avec :

VB:

Sub Consolider()
    Dim Ligne%, Tablo, F
    Sheets("Consolidation").[A2:D10000].ClearContents
    Application.ScreenUpdating = False
    Ligne = 3
    For Each F In Worksheets
        If F.Name <> "Consolidation" Then
            With Sheets(F.Name)
                DL = .[A10000].End(xlUp).Row
                Tablo = .Range("A2:D" & DL)
                Cells(Ligne, "A").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
                Ligne = Ligne + UBound(Tablo) + 1
            End With
        End If
    Next F
End Sub

La consolidation se fait à partir de toutes les feuilles ( Excepté Consolidation )

sylvanu · 23 Septembre 2024

Bonjour Gpion,
Un essai avec :

VB:

Sub Consolider()
    Dim Ligne%, Tablo, F
    Sheets("Consolidation").[A2:D10000].ClearContents
    Application.ScreenUpdating = False
    Ligne = 3
    For Each F In Worksheets
        If F.Name <> "Consolidation" Then
            With Sheets(F.Name)
                DL = .[A10000].End(xlUp).Row
                Tablo = .Range("A2:D" & DL)
                Cells(Ligne, "A").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
                Ligne = Ligne + UBound(Tablo) + 1
            End With
        End If
    Next F
End Sub

La consolidation se fait à partir de toutes les feuilles ( Excepté Consolidation )

gpion · 1 Octobre 2024

sylvanu à dit:

Bonjour Gpion,
Un essai avec :

VB:

Sub Consolider()
    Dim Ligne%, Tablo, F
    Sheets("Consolidation").[A2:D10000].ClearContents
    Application.ScreenUpdating = False
    Ligne = 3
    For Each F In Worksheets
        If F.Name <> "Consolidation" Then
            With Sheets(F.Name)
                DL = .[A10000].End(xlUp).Row
                Tablo = .Range("A2:D" & DL)
                Cells(Ligne, "A").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
                Ligne = Ligne + UBound(Tablo) + 1
            End With
        End If
    Next F
End Sub

La consolidation se fait à partir de toutes les feuilles ( Excepté Consolidation )

Bonjour

Merci beaucoup. Ca fonctionne parfaitement bien.
Un grand merci

Microsoft 365 Consolidation données depuis des feuilles

gpion

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

gpion

XLDnaute Nouveau

Discussions similaires