{"id":520,"date":"2011-01-20T14:42:14","date_gmt":"2011-01-20T13:42:14","guid":{"rendered":"http:\/\/www.auditsi.eu\/?p=520"},"modified":"2016-02-07T18:50:45","modified_gmt":"2016-02-07T17:50:45","slug":"audit-de-donnees-et-vba-automatisation-du-formatage-des-donnees-numeriques","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=520","title":{"rendered":"Audit de donn\u00e9es et VBA : automatisation du formatage des donn\u00e9es num\u00e9riques"},"content":{"rendered":"

Lorsque l\u2019auditeur exploite des donn\u00e9es extraites d\u2019un syst\u00e8me informatique, il est fr\u00e9quemment confront\u00e9 \u00e0 des formats num\u00e9riques incompatibles avec les formats propos\u00e9s par Excel. L\u2019auditeur doit alors retraiter manuellement les \u00e9l\u00e9ments chiffr\u00e9s, ce qui s\u2019av\u00e8re fastidieux sur des listes de donn\u00e9es cons\u00e9quentes.<\/p>\n

Le VBA<\/a> peut, dans ce cadre, s\u2019av\u00e9rer beaucoup plus productif.<\/p>\n

La fonction<\/a> et la proc\u00e9dure VBA propos\u00e9es (intitul\u00e9es respectivement NettoyageNombre<\/em> et NettoyageNombreS\u00e9lection<\/em>) retraitent les donn\u00e9es qui leur sont soumises afin qu\u2019elles soient reconnues par Excel comme des donn\u00e9es num\u00e9riques.<\/p>\n

Retrouvez l’article complet en t\u00e9l\u00e9chargement en bas de page.<\/p>\n

Extrait de l’article :<\/em><\/strong><\/p>\n

Exemple de formats de donn\u00e9es rencontr\u00e9s\u00a0et traitements effectu\u00e9s\u00a0par la fonction et la proc\u00e9dure :<\/span><\/strong><\/p>\n\n\n\n\n\n\n\n\n\n\n\n
Conventions<\/em><\/td>\nFormats<\/em><\/td>\nProbl\u00e9matique Excel<\/em><\/td>\nR\u00e9ponse apport\u00e9e par la fonction<\/em><\/td>\n<\/tr>\n
S\u00e9parateur de milliers<\/td>\n1\u00a0000\u00a0: espace<\/td>\nSi un espace est ins\u00e9r\u00e9 pour repr\u00e9senter les milliers, Excel ne reconna\u00eet plus la donn\u00e9e comme un nombre mais comme une cha\u00eene de caract\u00e8res<\/td>\nLa fonction supprime tous les espaces<\/td>\n<\/tr>\n
D\u00e9cimale<\/td>\n1000,23\u00a0: virgule<\/td>\nEn France, la d\u00e9cimale est repr\u00e9sent\u00e9e par une virgule (param\u00e8tres r\u00e9gionaux de Windows)<\/td>\n<\/td>\n<\/tr>\n
<\/td>\n1000.23\u00a0: point<\/td>\nUn nombre dont la d\u00e9cimale est repr\u00e9sent\u00e9e par un point est reconnu comme une cha\u00eene de caract\u00e8re<\/td>\nLa fonction remplace le point par une virgule<\/td>\n<\/tr>\n
Signe<\/td>\n-10<\/td>\nEn France, le signe n\u00e9gatif est positionn\u00e9 \u00e0 gauche du nombre<\/td>\n<\/td>\n<\/tr>\n
<\/td>\n10-<\/td>\nSi le signe est positionn\u00e9 \u00e0 droite, le nombre est reconnu comme une cha\u00eene<\/td>\nLa fonction d\u00e9place le signe \u00e0 gauche<\/td>\n<\/tr>\n
<\/td>\n(10)<\/td>\nLes parenth\u00e8ses sont g\u00e9n\u00e9ralement reconnues comme un signe n\u00e9gatif<\/td>\nLa fonction remplace les parenth\u00e8ses par un signe moins<\/td>\n<\/tr>\n
Sens<\/td>\nC10 ou 10C\u00a0: cr\u00e9dit<\/td>\nCette notation n\u2019est pas reconnue par Excel<\/td>\nLa fonction remplace le caract\u00e8re C par un signe moins<\/td>\n<\/tr>\n
<\/td>\nD10 ou 10D\u00a0: d\u00e9bit<\/td>\nCette notation n\u2019est pas reconnue par Excel<\/td>\nLa fonction supprime le caract\u00e8re D<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

Code source de la fonction NettoyageNombre<\/em> et de la proc\u00e9dure\u00a0NettoyageNombreS\u00e9lection<\/em> :<\/span><\/strong><\/p>\n

Function NettoyageNombre(nombre As Variant)\r\n'Renvoie un nombre format\u00e9 pour \u00eatre reconnu comme un nombre par Excel'Fonction r\u00e9dig\u00e9e par Beno\u00eet-Ren\u00e9 RIVIERE\r\n    Dim s2 As String\r\n \r\n    s2 = nombre\r\n    'Supprime les espaces\r\n    s2 = Replace(s2, \" \", \"\")\r\n    'Remplace les . par des ,\r\n    s2 = Replace(s2, \".\", \",\")\r\n    'Replace le caract\u00e8re C (cr\u00e9dit) par un signe -\r\n    If InStr(s2, \"C\") > 0 Then\r\n        s2 = Replace(s2, \"C\", \"\")\r\n        If InStr(s2, \"-\") > 0 Then s2 = Replace(s2, \"-\", \"\") Else s2 = \"-\" & s2\r\n    End If\r\n    'Supprime le caract\u00e8re D (d\u00e9bit)\r\n    If InStr(s2, \"D\") > 0 Then\r\n        s2 = Replace(s2, \"D\", \"\")\r\n    End If\r\n    'D\u00e9place le caract\u00e8re - de la droite vers la gauche\r\n    If InStr(s2, \"-\") > 1 Then\r\n        s2 = \"-\" & Replace(s2, \"-\", \"\")\r\n    End If\r\n    'Remplace les parenth\u00e8ses par un signe -\r\n    If InStr(s2, \"(\") > 0 Then\r\n        s2 = \"-\" & Replace(s2, \"(\", \"\")\r\n        s2 = Replace(s2, \")\", \"\")\r\n    End If\r\n \r\n    'Renvoie le r\u00e9sultat\r\n    If Len(s2) > 0 Then NettoyageNombre = CDbl(s2)\r\nEnd Function\r\n \r\nSub NettoyageNombreS\u00e9lection()\r\n    Dim Cellule As Variant\r\n \r\n    For Each Cellule In Selection\r\n        Cellule.Value = NettoyageNombre(Cellule.Value)\r\n    Next Cellule\r\nEnd Sub<\/pre>\n
Approfondir le sujet : conversion de fichiers et de donn\u00e9es<\/a>\u00a0\/\u00a0programmer en VBA<\/a><\/p>\n
\"Share<\/a>