VBA Consolidé Synthése de plusieurs feuilles Excel

Bonjour,

Je souhaite avoir une macro qui me renseigne ma feuille synthèse par date début et date fin que je définie à partir de mes deux feuille sources ,à savoir que je le fais manuellement chaque semaine pour plusieurs feuilles Sources

Je vous remercie infiniment.

en attché un exemple de feuilles sources de mon fichier de travail.

Cordialement.

je ne vois absolument pas ce que vous voulez

vos feuilles sources ont des en-têtes différentes (est toujours le cas)

vous souhaitez compléter votre feuille synthèse mais avec quoi

quelques exemples faciliteraient la compréhension

bonjour

je vous remercie

je veux renseigner la somme des données de la colonne G et H de la feuille " source1" à la colonne C et D de la feuille Synthése par agence_ Client.

et le type de la feuille Source 2 en nombre et en montant par agence Client dans feuille synthése.

merci BCP.

par date de mon choix si possible.

restant à votre disposition.

Bonjour,

Une proposition à étudier.

Cdlt.

bonjour

merci pour votre proposition elle me va .

juste que la date début et date Fin de la feuille " synthése " ne fonctionne pas.

est-ce que si possible?

RE,

Je ne comprends pas ce que tu écris.

Cdlt.

bonjour

est-ce possible que je change les dates début et fin trouvant sur la feuille synthése en L6 et M6

pour que la recap soit dynamique par date.

merci.

Bonsoir à tous,

Avec le fichier du post #1

Option Explicit
Sub Ventile()
Dim a, e, i As Long, j As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    'dico.CompareMode = 1
    For Each e In Array("Sources1", "Sources 2")
        a = Sheets(e).[a1].CurrentRegion.Value
        For i = 2 To UBound(a, 1)
            If Not dico.exists(a(i, 2)) Then
                Set dico(a(i, 2)) = CreateObject("Scripting.Dictionary")
                dico(a(i, 2)).CompareMode = 1
            End If
            Select Case e
                Case "Sources1"
                    dico(a(i, 2))("Equip Nb") = dico(a(i, 2))("Equip Nb") + a(i, 7)
                    dico(a(i, 2))("REC NB") = dico(a(i, 2))("REC NB") + a(i, 8)
                Case "Sources 2"
                    dico(a(i, 2))(a(i, 3) & " NB") = dico(a(i, 2))(a(i, 3) & " NB") + 1
                    dico(a(i, 2))(a(i, 3) & " Mnt") = dico(a(i, 2))(a(i, 3) & " Mnt") + a(i, 5)
            End Select
        Next
    Next
    Application.ScreenUpdating = False
    With Sheets("Synthése").[b1].CurrentRegion
        With .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1)
            .ClearContents
        End With
        For i = 2 To .Rows.Count
            If dico.exists(.Cells(i, 1).Value) Then
                For j = 2 To .Columns.Count
                    If dico(.Cells(i, 1).Value).exists(.Cells(1, j).Value) Then
                        .Cells(i, j).Value = dico(.Cells(i, 1).Value)(.Cells(1, j).Value)
                    End If
                Next
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Edit : je ne comprends rien à votre histoire de dates

klin89

bonsoir

merci BCP Klin89 c'est la bonne macro .

est-ce que si possible que elle me renseigne la feuille synthèse avec un intervalle date début et date fin que je choisis.

qui se trouvent sur la feuille synthèse en L3 (date début) et M3 (date fin).

si c'est pas possible pas grave .

merci pour votre précieuse aide.

Bonjour,

Dans la proposition, tu modifies les dates en L6 et M6, et tu exécutes la procédure avec la commande Filtrer.

Cdlt.