Générer les écritures comptables en filtrant certaines données

Le 16/05/2022 à 14:11

bonjour le forum

Je vous écris car j'ai besoin de votre aide pour générer des écritures comptables avec une macro en filtrant certaines données de notre premières fiche

Le but étant de : Par la feuille 1(regarde exemple) générer les écritures de la feuilles 2

pour y arriver j'utilise une macro mais je n'arrive pas a l'adapter

Est ce que quelqu'un pourrait m'aider s'il vous plait ?

Voici ma macro et le fichier ci-dessous est mon exemple La base de données (Feuil1)

le rendu (Feuil2)

Sub MacroFactures()

'
' Test Macro
'
Dim i%, iRC&, WsC As Worksheet, THdr
Application.ScreenUpdating = False
Worksheets.Add.Name = "FiltreReglement" & Worksheets.Count + 1
Set WsC = ActiveSheet
THdr = Split("date rgt,code journal,compte,débit,crédit,Libellé,pièce,référence pièce", ",")
    For i = 0 To UBound(THdr)
    WsC.Cells(2, 1 + i) = THdr(i)
    Next
        iRC = 3
        ArrS = Feuil1.[A1].CurrentRegion.Value2
        For i = 2 To UBound(ArrS)
        THdr(0) = Format(CDate(ArrS(i, 3)), "dd/mm/yyyy")
        THdr(1) = "RGLT"
        THdr(2) = "411" & ArrS(i, 5)
        THdr(3) = ""
        THdr(4) = ArrS(i, 12)
        THdr(5) = ArrS(i, 6)
        THdr(6) = ArrS(i, 10)
        THdr(7) = ArrS(i, 13)
        WsC.Cells(iRC, 1).Resize(1, UBound(THdr) + 1) = THdr
        iRC = iRC + 1
        THdr(3) = ArrS(i, 11)
        THdr(4) = ""
        WsC.Cells(iRC, 1).Resize(1, UBound(THdr) + 1) = THdr
        iRC = iRC + 1
        Next

    Columns("F:F").ColumnWidth = 26.14
    Columns("G:G").ColumnWidth = 31.57
    Columns("H:H").ColumnWidth = 19.14
    Columns("B:B").ColumnWidth = 15

        Range("A2:H2").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

<br>

Le 16/05/2022 à 14:50

Bonjour

Sans VBA, avec une requête PowerQuery on peut obtenir cela mais une table des comptes avec l'ordre éventuel serait utile