{"id":7555,"date":"2018-08-19T14:46:23","date_gmt":"2018-08-19T12:46:23","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=7555"},"modified":"2018-08-19T14:46:23","modified_gmt":"2018-08-19T12:46:23","slug":"resoudre-des-problemes-complexes-a-laide-la-programmation-informatique","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=7555","title":{"rendered":"R\u00e9soudre des probl\u00e8mes complexes \u00e0 l’aide la programmation informatique"},"content":{"rendered":"

Dans notre quotidien professionnel, nous devons fr\u00e9quemment r\u00e9aliser des t\u00e2ches r\u00e9p\u00e9titives avec des desseins plus ou moins complexes. Par exemple, dans le cadre d’un reporting mensuel, collecter les balances d’un groupe de soci\u00e9t\u00e9s, les ouvrir, les mettre en forme pour enfin les analyser. Prises isol\u00e9ment, ces t\u00e2ches ne prennent pas beaucoup de temps mais r\u00e9p\u00e9t\u00e9es, elles sont non seulement chronophages mais \u00e9galement sans aucune valeur ajout\u00e9e. L’automatisation<\/a> de ces t\u00e2ches sera utilement mise en \u0153uvre afin de focaliser le maximum de temps homme sur la phase d’analyse de donn\u00e9es, de loin la plus valorisante.<\/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  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    .Range(\"B\" & 4 + NbEntit\u00e9s & \":\" & Chr(64 + NbEntit\u00e9s + 1) & NbEntit\u00e9s * 2 + 3).FormulaArray = \"=minverse(B2:\" & Chr(64 + NbEntit\u00e9s + 1) & 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
La phase de r\u00e9flexion pr\u00e9alable rev\u00eat une importance primordiale. Elle consiste \u00e0 mod\u00e9liser le probl\u00e8me<\/a> \u00e0 r\u00e9soudre, c’est-\u00e0-dire, \u00e0 choisir la solution la mieux adapt\u00e9e (\u00e9ventuellement la plus simple \u00e0 programmer et offrant le meilleur gain de temps) puis \u00e0 d\u00e9composer la solution retenue en \u00e9tapes \u00e9l\u00e9mentaires qui chacune feront l’objet d’une codification informatique.<\/p>\n
Sur les projets les plus complexes, cette phase repr\u00e9sente un investissement important mais loin de constituer une perte de temps, elle est la garantie du succ\u00e8s de la r\u00e9alisation du projet. Une fois le programme termin\u00e9, les gains de temps obtenus sont largement b\u00e9n\u00e9fiques.<\/p>\n
Dans les m\u00e9tiers de la comptabilit\u00e9, la mise en \u0153uvre d’un programme passe g\u00e9n\u00e9ralement par le langage VBA en lien avec Excel et\/ou ACCESS, car ce langage est simple \u00e0 programmer et permet de traiter de cons\u00e9quents volumes de donn\u00e9es.<\/p>\n
Il y a quelques ann\u00e9es, je cherchais une solution pour calculer rapidement les pourcentages d’int\u00e9r\u00eat en pr\u00e9sence de participations crois\u00e9es<\/a> dans le cadre de la validation des comptes consolid\u00e9s de groupes de soci\u00e9t\u00e9s. Le calcul matriciel<\/a> semblait la solution la plus adapt\u00e9e. D’ailleurs, le Memento Comptes consolid\u00e9s \u00e9voque la programmation en langage Basic<\/a> du calcul matriciel, en se gardant toutefois bien d’en fournir une solution op\u00e9rationnelle. J’avais d\u00e9j\u00e0 mis en \u0153uvre cette solution pour r\u00e9soudre des syst\u00e8mes d’\u00e9quations il y a bien longtemps<\/a>. La mod\u00e9lisation du probl\u00e8me m’a permis de r\u00e9soudre rapidement la phase de programmation de cette t\u00e2che.<\/p>\n
Extrait du Memento Comptes consolid\u00e9s (Editions Francis Lefebvre) :<\/p>\n\n\n\n
4324-2<\/strong><\/span><\/td>\nMise en oeuvre du calcul<\/strong><\/span>
\n
\n<\/strong>Gr\u00e2ce \u00e0 des programmes informatiques, nous pouvons obtenir directement les r\u00e9sultats du calcul des pourcentages d’int\u00e9r\u00eats.<\/span>
\nNous ne d\u00e9veloppons pas ci-apr\u00e8s d’exemples de programmes informatiques. Cependant, \u00e0 l’aide d’un programme de calcul matriciel des participations \u00e9crit en Basic et exploit\u00e9 sur un micro-ordinateur, nous obtenons la matrice suivante :<\/span><\/p>\n\n\n\n\n\n\n\n\n\n
Matrice C = B \u00d7 (A)<\/strong>-1<\/sup><\/strong><\/span><\/td>\n<\/tr>\n
1,0000000<\/span><\/td>\n0,6231216<\/span><\/td>\n0,4969945<\/span><\/td>\n0,3853585<\/span><\/td>\n0,2312151<\/span><\/td>\n0,0000000<\/span><\/td>\n<\/tr>\n
0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n<\/tr>\n
0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n<\/tr>\n
0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n<\/tr>\n
0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n0,0000000<\/span><\/td>\n<\/tr>\n
0,0000000<\/span><\/td>\n0,3768785<\/span><\/td>\n0,5030056<\/span><\/td>\n0,6146415<\/span><\/td>\n0,7687849<\/span><\/td>\n1,0000000<\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
 <\/p>\n
\"Share<\/a>