{"id":2766,"date":"2013-01-03T22:43:29","date_gmt":"2013-01-03T20:43:29","guid":{"rendered":"http:\/\/www.auditsi.eu\/?p=2766"},"modified":"2015-01-24T23:53:19","modified_gmt":"2015-01-24T21:53:19","slug":"conversion-de-programmes-entre-les-langages-vba-et-delphi","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=2766","title":{"rendered":"Conversion de programmes entre les langages VBA et DELPHI"},"content":{"rendered":"

Dans le cadre de mon projet de d\u00e9veloppement d\u2019un logiciel d\u2019audit des comptes consolid\u00e9s<\/a>, je convertis en DELPHI des programmes que j\u2019avais initialement r\u00e9dig\u00e9s en VBA et notamment le programme de calcul des pourcentages d\u2019int\u00e9r\u00eat<\/a>.<\/p>\n

Cette op\u00e9ration de conversion se pratique de la m\u00eame mani\u00e8re que la traduction d\u2019un texte d\u2019une langue \u00e0 l\u2019autre : elle n\u00e9cessite la connaissance de la grammaire (la syntaxe) et du vocabulaire (les mots clefs). En mati\u00e8re informatique, la conversion n\u00e9cessite la ma\u00eetrise approfondie des deux langages. En effet, si de prime abord la ressemblance de ces deux langages est frappante, des subtilit\u00e9s, v\u00e9ritables chausse-trapes, compliquent quelque peu la donne.<\/p>\n

\"Matrice<\/a>

Matrice inverse sous EXCEL : deux codes pour un m\u00eame r\u00e9sultat !<\/p><\/div>\n

Je vais prendre pour exemple la proc\u00e9dure de calcul de la matrice inverse sous EXCEL extraite du programme de calcul des pourcentages d\u2019int\u00e9r\u00eat. Cette proc\u00e9dure r\u00e9dig\u00e9e en VBA (cf extrait n\u00b01) est convertie sous DELPHI (extrait n\u00b02).<\/p>\n

Extrait n\u00b01 : proc\u00e9dure \u00ab AfficheMatrice \u00bb r\u00e9dig\u00e9e en VBA :<\/em><\/p>\n

Sub AfficheMatrice()\r\n    Dim d\u00e9tenteur As Integer\r\n    Dim d\u00e9tenu As Integer\r\n       \r\n    classeurAppli.Sheets.Add after:=Worksheets(Worksheets.Count)\r\n   \r\n    With classeurAppli.Sheets(classeurAppli.Sheets.Count)\r\n        .Cells(1, 1).Value = \"Matrice I-M\"\r\n        For d\u00e9tenteur = 1 To Nbentit\u00e9s\r\n            For d\u00e9tenu = 1 To Nbentit\u00e9s\r\n                If d\u00e9tenteur = 1 Then\r\n                    .Cells(1, d\u00e9tenu + 1).Value = Entit\u00e9s(d\u00e9tenu)\r\n                    .Cells(3 + Nbentit\u00e9s, d\u00e9tenu + 1).Value = Entit\u00e9s(d\u00e9tenu)\r\n                End If\r\n                If d\u00e9tenu = 1 Then\r\n                    .Cells(d\u00e9tenteur + 1, 1).Value = Entit\u00e9s(d\u00e9tenteur)\r\n                    .Cells(d\u00e9tenteur + Nbentit\u00e9s + 3, 1).Value = Entit\u00e9s(d\u00e9tenteur)\r\n                End If\r\n                .Cells(d\u00e9tenteur + 1, d\u00e9tenu + 1).Value = MatriceImoinsD\u00e9tentions(d\u00e9tenteur, d\u00e9tenu)\r\n            Next d\u00e9tenu\r\n        Next d\u00e9tenteur\r\n        .Cells(3 + Nbentit\u00e9s, 1).Value = \"Matrice (I-M)^-1\"\r\n       \r\n        .Range(\"B\" & 4 + Nbentit\u00e9s & \":\" & R\u00e9fColonne(Nbentit\u00e9s) & Nbentit\u00e9s * 2 + 3).FormulaArray = \"=minverse(B2:\" & R\u00e9fColonne(Nbentit\u00e9s) & Nbentit\u00e9s + 1 & \")\"\r\n        'FormulaArray \u00e9quivaut \u00e0 Ctrl+Maj+Entr\u00e9e\r\n        For d\u00e9tenu = 2 To Nbentit\u00e9s\r\n            PourcentagesInt\u00e9r\u00eat(d\u00e9tenu) = Cells(4 + Nbentit\u00e9s, d\u00e9tenu + 1)\r\n        Next d\u00e9tenu\r\n    End With\r\nEnd Sub<\/pre>\n
Extrait n\u00b02 : proc\u00e9dure \u00ab AfficheMatrice \u00bb r\u00e9dig\u00e9e sous DELPHI :<\/em><\/p>\n
procedure AfficheMatrice;\r\nvar\r\n  detenteur : Integer;\r\n  detenu : Integer;\r\nbegin\r\n  cellule:=classeurexcelresultat.sheets[feuilleresultat];\r\n  cellule.Cells[1, 1].Value := 'Matrice I-M';\r\n  For detenteur := 1 To Nbentites do\r\n  begin\r\n    For detenu := 1 To Nbentites do\r\n    begin\r\n      If detenteur = 1 Then\r\n      begin\r\n        cellule.Cells[1, detenu + 1].Value := Entites[detenu-1];\r\n        cellule.Cells[3 + Nbentites, detenu + 1].Value := Entites[detenu-1];\r\n      End;\r\n      If detenu = 1 Then\r\n      begin\r\n        cellule.Cells[detenteur + 1, 1].Value := Entites[detenteur-1];\r\n        cellule.Cells[detenteur + Nbentites + 3, 1].Value := Entites[detenteur-1];\r\n      End;\r\n      cellule.Cells[detenteur + 1, detenu + 1].Value := MatriceImoinsDetentions[detenteur-1, detenu-1];\r\n    end;\r\n  end;\r\n  cellule.Cells[3 + Nbentites, 1].Value := 'Matrice (I-M)^-1';\r\n  cellule.Range['B' + inttostr(4 + Nbentites) + ':' + RefColonne(Nbentites) + inttostr(Nbentites * 2 + 3)].FormulaArray := '=inversemat(B2:' + RefColonne(Nbentites) + inttostr(Nbentites + 1) + ')';\r\n  \/\/FormulaArray \u00e9quivaut \u00e0 Ctrl+Maj+Entr\u00e9e\r\n  For detenu := 2 To Nbentites do\r\n  begin\r\n    PourcentagesInteret[detenu-2] := cellule.Cells[4 + Nbentites, detenu + 1];\r\n  end;\r\nEnd;<\/pre>\n
Au premier coup d\u2019\u0153il, on remarque la grande similitude des deux codes :<\/p>\n