Microsoft 365 Macro VBA pour automatisation écritures comptables

Niko2149 · Lundi à 17:10

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 · Lundi à 17:45

Bonjour,

Un petit essai sans VBA.

Niko2149 · Lundi à 17:50

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

Laurent78 · Lundi à 18:23

Niko2149 à dit:
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 · Lundi à 19:53

Bonsoir à tous,

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

PowerQuery:

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 · Mardi à 07:54

alexga78 à dit:

Bonsoir à tous,

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

PowerQuery:

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 · Mardi à 07:57

Laurent78 à dit:
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 · Mardi à 09:25

Niko2149 à dit:
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 · Mardi à 10:59

alexga78 à dit:
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

Microsoft 365 Macro VBA pour automatisation écritures comptables

Niko2149

XLDnaute Nouveau

Pièces jointes

Laurent78

XLDnaute Occasionnel

Pièces jointes

Niko2149

XLDnaute Nouveau

Laurent78

XLDnaute Occasionnel

alexga78

XLDnaute Occasionnel

Niko2149

XLDnaute Nouveau

Niko2149

XLDnaute Nouveau

alexga78

XLDnaute Occasionnel

Pièces jointes

Niko2149

XLDnaute Nouveau

Discussions similaires