Reporting excel/comptable

Bonjour à tous,

Je dois mettre en place un reporting sur excel à partir d'une extraction du logiciel compta.

Mon problème est qu'une ligne du reporting peut être constituée de la somme de plusieurs codes comptables et chaque code comptable peut faire l'objet de plusieurs écritures.

Pour l'instant, j'ai réussi de façon artisanale : à partir de l'extraction comptable, je fais un TCD puis dans le reporting, je vais chercher les données dans le tcd. Mais je cherche à gagner du temps…

Pour plus de clarté, je joins un fichier excel.

A défaut (et devoir continuer de cette façon), est-ce sécure d'aller chercher des données directement dans un TCD ou vaut-il mieux faire un copier/coller en valeur ?

Je vous serais très reconnaissante de toute aide.

Bien cordialement.

Bonjour,

Un début de réponse.

Réalisé avec Récupéré et transformer (Power Query).

Ah ! Ces comptables et la gestion des données sous Excel...

A te relire.

Bonnes fêtes de fin d'année.

Cdlt.

Bonjour Jean-Eric,

Merci beaucoup pour ta réponse si rapide !

Aïe, mon niveau d'excel est très très faible et mon (énorme) problème est de comprendre comment tu as fait (je ne comprends déjà pas la formule que tu as mise dans l'onglet reporting et encore moins power query. J'ai l'impression que c'est tout un processus.

Bref, je ne sais pas par où commencer ):

Merci quand même et bon réveillon (je crois que je vais noyer mon incompétence excel dans l'alcool !)

Cdlt.

Bonjour DOBI,

Voyez si le fichier joint peut vous aider

Re,

Je te propose une chose.

On fête la nouvelle année.

Tu t'alcoolises à souhait (mais modérément)

Tu oublies ton incompétence dans ce domaine (Je suis persuadé que tu excelles dans d'autres domaines ) .

Et tu reviens à jeun !...

Il y a une solution plus simple, mais la création d'une table de correspondance (Num Compte et Libellé) est inévitable.

Bon réveillon.

A bientôt.

Cdlt.

Merci à tous les deux, je vais effectivement opter pour une table de correspondance puis une recherchev dans un tcd.

Pas optimum mais c'est un pas !

Bon réveillon à vous deux

Cdlt

Bonsoir à tous

Vois ceci :

Option Explicit
Sub test()
Dim a, e, i As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    a = Sheets("Extraction logiciel compta").Cells(1).CurrentRegion.Value
    For i = 2 To UBound(a, 1)
        dico(CStr(a(i, 3))) = dico(CStr(a(i, 3))) + a(i, 5) + a(i, 6)
    Next
    With Sheets("Reporting")
        For i = 10 To 38
            If .Cells(i, 2).Value <> "" Then
                For Each e In Split(.Cells(i, 2).Value, ",")
                    If dico.exists(Trim(e)) Then
                        .Cells(i, 3).Value = .Cells(i, 3).Value + dico(Trim(e))
                    End If
                Next
            End If
        Next
    End With
    Set dico = Nothing
End Sub

Bon réveillon à tous

klin89