Microsoft 365 Macro VBA pour automatisation écritures comptables

[Niko2149]

Bonjour,

j'essaie de réaliser une macro pour automatiser les écritures comptables. Je ne vous cache pas que si je vous sollicite, je galère . Je vous joins le fichier excel, dans le premier onglet (sheet0) se trouvent les données "source". Dans le second onglet (Ecritures), se trouvent un exemple type que je voudrais reproduire..
Si quelqu'un pouvait me sortir de la panade... Merci par avance

 

[Laurent78]

Bonjour,

Un petit essai sans VBA.

 

[Niko2149]

Le résultat est exactement ce qu'il me faut. Maintenant il faudrait que cela soit automatisé via une macro

 

[Laurent78]

Le résultat est exactement ce qu'il me faut. Maintenant il faudrait que cela soit automatisé via une macro

automatiser quoi, le copier/coller des données brutes ?

 

[alexga78]

Bonsoir à tous,

un essai avec Power Query, si j'ai bien compris la demande...

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    cols = {{"CODE JOURNAL", "DATE", "COMPTE", "INTITULE", "PIECE1"}, {"PIECE2", "DEBIT", "CREDIT", "COMPTE AUX"}, Table.ColumnNames(Source)},
    #"Filled down" = Table.SelectRows(Table.FillDown(Source, {cols{2}{2}}), each Record.Field(_, cols{2}{2}) <> null),
    #"Grouped Rows" = Table.Combine(Table.Group(#"Filled down", cols{2}{2},
      {{"x", each
          [ count = Table.RowCount(_),
            a = {"ENC"},
            b = {Date.From (Table.Column(_, cols{2}{0}){0})},
            c = {"411000", "627510", "511100"},
            d = {"Encaissement Paypal"},
            e = {Date.From(Table.Column(_, cols{2}{1}){1})},
            f = {null},
            g = Table.Column(_, cols{2}{4}) ,
            h = {null} & List.Transform(List.Skip(g), Number.Abs),
            i = {List.First(g), null, null},
            j = {"CB"},
            tbl = Table.FirstN(Table.FillDown(Table.FromColumns({a,b,c,d,e,f,h,i,j}, cols{0} & cols{1}), cols{0}), count)
          ] [tbl]
      }})[x])
in
    #"Grouped Rows"

Bonne soirée

 

[Niko2149]

Bonsoir à tous,

un essai avec Power Query, si j'ai bien compris la demande...

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    cols = {{"CODE JOURNAL", "DATE", "COMPTE", "INTITULE", "PIECE1"}, {"PIECE2", "DEBIT", "CREDIT", "COMPTE AUX"}, Table.ColumnNames(Source)},
    #"Filled down" = Table.SelectRows(Table.FillDown(Source, {cols{2}{2}}), each Record.Field(_, cols{2}{2}) <> null),
    #"Grouped Rows" = Table.Combine(Table.Group(#"Filled down", cols{2}{2},
      {{"x", each
          [ count = Table.RowCount(_),
            a = {"ENC"},
            b = {Date.From (Table.Column(_, cols{2}{0}){0})},
            c = {"411000", "627510", "511100"},
            d = {"Encaissement Paypal"},
            e = {Date.From(Table.Column(_, cols{2}{1}){1})},
            f = {null},
            g = Table.Column(_, cols{2}{4}) ,
            h = {null} & List.Transform(List.Skip(g), Number.Abs),
            i = {List.First(g), null, null},
            j = {"CB"},
            tbl = Table.FirstN(Table.FillDown(Table.FromColumns({a,b,c,d,e,f,h,i,j}, cols{0} & cols{1}), cols{0}), count)
          ] [tbl]
      }})[x])
in
    #"Grouped Rows"

Bonne soirée

Bonjour et merci beaucoup pour votre retour. Je ne connais pas Power Query. J'ai suivi quelques tutos pour "importer" votre script mais une erreur m'indique qu'il n'existe pas de Table1

 

[Niko2149]

automatiser quoi, le copier/coller des données brutes ?

Bonjour, je me suis mal exprimé. L'idée de base était de concevoir une macro ou autre chose mais habituellement nous utilisons des macros. Ceci dans le but chaque mois, d'obtenir nos écritures comptables via le fichier joint initialement. Votre fichier est néanmoins une excellent base de travail

 

[alexga78]

Bonjour et merci beaucoup pour votre retour. Je ne connais pas Power Query. J'ai suivi quelques tutos pour "importer" votre script mais une erreur m'indique qu'il n'existe pas de Table1

Bonjour @Niko2149, le forum,
il faut créer un tableau structuré avec vos données et le nommer "Table1".

Bonne journée

 

[Niko2149]

Bonjour @Niko2149, le forum,
il faut créer un tableau structuré avec vos données et le nommer "Table1".

Bonne journée

OK merci beaucoup